Skip to main content

AccessTr.neT


Form Açılırken Fontun İnstal Edilmesi

Form Açılırken Fontun İnstal Edilmesi

Çözüldü #1
merhaba arkadaşlar.

Form açılırken istenilen fontun install edilmesi gerekiyor.
yoksa tüm bilgisayarları dolaşmam gerekiyor.

form açılma olayında  code128.ttf  fontunu bilgisayara yükleyebilirmiyim.

 ilginiz içim teşekkürler.
Cevapla
#2
Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Visual Basic Code
Sub FontuYukle()

Dim Evn, Font As Object
    Const fonts = &H14&
    Set Evn = CreateObject("Shell.Application")
    Set Font = Evn.Namespace(fonts)
    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

End Sub


Visual Basic Code
Sub FontIndirveYukle()

On Error Resume Next
Dim GKlasor As String
Dim Mesaj As Integer
GKlasor = Environ("TEMP") & "\GeciciBarkod\"
MkDir (GKlasor)
DownloadFileFromWeb
FontuYukle
Kill GKlasor & "*.*"
RmDir (GKlasor)
Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)
If Mesaj = vbOK Then
DuzenleOnarYenile
End If

End Sub

kodları fontu indirir ve yükler.

Modüldeki 
Visual Basic Code
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFileFromWeb()
    Dim myFile As String
    Dim Ret As Long
    Dim strSavePath As String
    Dim URL As String

    URL = "https://accesstr.net/sitegenel/ean13.ttf"
    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"
    Debug.Print strSavePath
    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)

    If Ret = 0 Then
        Exit Sub
    Else
        MsgBox "Dosya Yüklenemedi"
    End If
End Sub

Kodu fontu temp dizinine kaydeder.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
ok.

test ediyorum.
Cevapla
#4
(12/07/2019 11:05)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Kod
Sub FontuYukle()

Dim Evn, Font As Object
    Const fonts = &H14&
    Set Evn = CreateObject("Shell.Application")
    Set Font = Evn.Namespace(fonts)
    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

End Sub


Kod
Sub FontIndirveYukle()

On Error Resume Next
Dim GKlasor As String
Dim Mesaj As Integer
GKlasor = Environ("TEMP") & "\GeciciBarkod\"
MkDir (GKlasor)
DownloadFileFromWeb
FontuYukle
Kill GKlasor & "*.*"
RmDir (GKlasor)
Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)
If Mesaj = vbOK Then
DuzenleOnarYenile
End If

End Sub

kodları fontu indirir ve yükler.

Modüldeki 
Kod
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFileFromWeb()
    Dim myFile As String
    Dim Ret As Long
    Dim strSavePath As String
    Dim URL As String

    URL = "https://accesstr.net/sitegenel/ean13.ttf"
    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"
    Debug.Print strSavePath
    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)

    If Ret = 0 Then
        Exit Sub
    Else
        MsgBox "Dosya Yüklenemedi"
    End If
End Sub

Kodu fontu temp dizinine kaydeder.

Hocam size zahmet projesini ekleyebilirmisiniz rica etsem , banada lazımda <3
Cevapla
#5
(12/07/2019 19:32)Uptadex Adlı Kullanıcıdan Alıntı:
(12/07/2019 11:05)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Kod
Sub FontuYukle()

Dim Evn, Font As Object
    Const fonts = &H14&
    Set Evn = CreateObject("Shell.Application")
    Set Font = Evn.Namespace(fonts)
    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

End Sub


Kod
Sub FontIndirveYukle()

On Error Resume Next
Dim GKlasor As String
Dim Mesaj As Integer
GKlasor = Environ("TEMP") & "\GeciciBarkod\"
MkDir (GKlasor)
DownloadFileFromWeb
FontuYukle
Kill GKlasor & "*.*"
RmDir (GKlasor)
Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)
If Mesaj = vbOK Then
DuzenleOnarYenile
End If

End Sub

kodları fontu indirir ve yükler.

Modüldeki 
Kod
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFileFromWeb()
    Dim myFile As String
    Dim Ret As Long
    Dim strSavePath As String
    Dim URL As String

    URL = "https://accesstr.net/sitegenel/ean13.ttf"
    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"
    Debug.Print strSavePath
    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)

    If Ret = 0 Then
        Exit Sub
    Else
        MsgBox "Dosya Yüklenemedi"
    End If
End Sub

Kodu fontu temp dizinine kaydeder.

Hocam size zahmet projesini ekleyebilirmisiniz rica etsem , banada lazımda <3


Merhaba, alıntı yaptığınız mesajı tekrar okuyunuz.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da