Userformda Harfler yerine imajlar kullanmak

[sadece_erhan]

Merhaba, herkese iyi günler dilerim.

Userform da kullanacağım font renginin userfont arkaplan resmiyle uyumsuz olmasından dolayı userformda yazacak her metinde harflerin yerine her harfi temsilen bir imaj dosyası kullanabilir miyim.

örneğin
a = a.jpg
b = b.jpg
c = c.jpg
..
..
..

 

[muygun]

Merhaba;

Userform arkaplanı güncel değiştirmek için;

Bir userform oluşturun ve bir adet Textbox ekleyin.

Private Sub TextBox1_Change()
If TextBox1 = "a" Then UserForm1.Picture = LoadPicture("C:\resim\1.jpg")
If TextBox1 = "b" Then UserForm1.Picture = LoadPicture("C:\resim\2.jpg")
If TextBox1 = "c" Then UserForm1.Picture = LoadPicture("C:\resim\3.jpg")
End Sub

Şeklinde deneyin.
İyi çalışmalar.