Form Açılırken Fontun İnstal Edilmesi

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.

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

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

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

#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.

ok.

test ediyorum.

(12/07/2019, 11:05)ozanakkaya yazdı: 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

(12/07/2019, 19:32)Uptadex yazdı:
(12/07/2019, 11:05)ozanakkaya yazdı: 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.

Form Açılırken Fontun İnstal Edilmesi

cozum

ozanakkaya

cozum

Uptadex

ozanakkaya