Merhaba
Yapmış oldugum userformda bir imagebox birde combobox var.Combobox'da seçtiğim resim image nesnesinde görüntüleniyor. Ancak resim görüntüsü büyük ise image da resim tam gözükmüyor. Size mod kullandığımda ise resim ve yazılar kücüldügü için okunamaz secilemez hale geliyor.İmage nesnesinde yatay veya dikey kaydırma cubukları olusturmak mümkünmü...veya baska bir yöntemle yapılabilirmi? (Kullandığım kod aşağıdadır.)
tesekkürler
herkese iyi çalışmalar ve başarılar
Kullanılan kodlar
Private Sub ComboBox1_Change()
On Error Resume Next
Label1.Caption = "C:\MyPicture\" & ComboBox1.Value & ".jpg"
Image1.Picture = LoadPicture(Label1.Caption)
End Sub
Private Sub UserForm_Activate()
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!$A$2:$A$10000"
ComboBox1.ColumnCount = True
End Sub
Yapmış oldugum userformda bir imagebox birde combobox var.Combobox'da seçtiğim resim image nesnesinde görüntüleniyor. Ancak resim görüntüsü büyük ise image da resim tam gözükmüyor. Size mod kullandığımda ise resim ve yazılar kücüldügü için okunamaz secilemez hale geliyor.İmage nesnesinde yatay veya dikey kaydırma cubukları olusturmak mümkünmü...veya baska bir yöntemle yapılabilirmi? (Kullandığım kod aşağıdadır.)
tesekkürler
herkese iyi çalışmalar ve başarılar
Kullanılan kodlar
Private Sub ComboBox1_Change()
On Error Resume Next
Label1.Caption = "C:\MyPicture\" & ComboBox1.Value & ".jpg"
Image1.Picture = LoadPicture(Label1.Caption)
End Sub
Private Sub UserForm_Activate()
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!$A$2:$A$10000"
ComboBox1.ColumnCount = True
End Sub