Skip to main content

AccessTr.neT


Access 2003 developer Extention

mehmetdemiral
mehmetdemiral
14
9479

Access 2003 developer Extention

#13
Aslında diğer konuyla da ilgili birçok ipucu içeriyor ama burdaki bir soruya da cevap veriyor. Bir taşla iki kuş olsun.
Cevapla
#14
Öncelikle ilgilenip cevapladığınız için çok teşekkür ederim,
cevplarınızın hepsi doyurucu ben sadece iyi anlatamadğım
konuları açmak için cevap yazıyorum
1. Office set in içinde Office araçlarında "JPEG filters" var. Access eğer bu
filtreler yüklenmişse form üzerindeki bağlı JPEG leri gösterebiliyor
Office set kurmaz runtime ile çalışırsanız JPEG import çalışmadığı için
resim dosyaları hata veriyor ( burada söz konusu edilen JPEG dosya olarak
kayıtlarra bağladıklarımız değil, arayüzde görsellik için kullandığımız fon, buton resimleri ) Sonuç : bu grafikleri BMP yaptım sorun kalmadı.

2. Yine Office programları JPEG formatını dir dış format olarak kabul ettiği için
ekrana getirirken bir dialog penceresi açıyor ve "Loading JPEG" benzeri bir yazı ile kısa bir süre ekranda kalıyordu ve bu da bazen uygulamanın kitlenmesine sebep oluyordu. Aşmak için
Hot key local machine ve Hot key current user altından bu dialog pencesresini
iptal ediyorduk Bkz Sn Sledgeab ın konuya ilişkin kodu
Kod:
Function REGEDITKAPAT()
On Error GoTo grafikayar
Dim sReturn As String
Dim sErr
Dim WS As Object
Set WS = CreateObject("WScript.Shell")
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
Set WS = Nothing
Exit Function
grafikayar:
MsgBox "HKLM ve HKCU Microsoft" & vbCrLf & _
    "Grafik ayarları yapılamadı ." & vbCrLf & _
    "İşlemleri manüel olarak yapınız.", _
    vbCritical + vbOKOnly, _
    "Microsoft Grafik ayarları"
End Function

Elbette grafikler BMP olunca bu ihtiyaç ortadan kalktı

3. Ben uygulamamın içindeki tüm form sorgu, tablo,vb ne varsa sildim.
İçinde sadece referansları bıraktım ve bu dosyayı paketledim.
Runtime ı hedef bilgisayara bu şekilde kuruyorum.

Sonra Install Creator la ( veya benzer bir programla ) asıl uygulamamı dilediğim yere kuruyorum ( Çünkü Setup Wizard C:' ye kurmuyor, en yakın seçenek "Program files") Böylece tüm uygulamalar ve tüm bilgisayarlar için tek bir Runtime kurulum dosyası kullanabilirim, yani her uygulamamı ayrı ayrı paketlememe gerek kalmadı


Asıl konu halloldu, bunlar artık olsa da olur tarzında kişisel tercih ve tecrübeler, cevaplarınız için tekrar tşk.

Kolay gelsin
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#15
Ben uygulamamın içindeki tüm form sorgu, tablo,vb ne varsa sildim.
İçinde sadece referansları bıraktım ve bu dosyayı paketledim.
Runtime ı hedef bilgisayara bu şekilde kuruyorum BURAYI BİRAZ AÇARMISINIZ PEK ANLAYAMADIM
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task