Untitled
unknown
plain_text
2 years ago
2.3 kB
6
Indexable
Private Sub CommandButton1_Click() End Sub Private Sub calculateButton_Click() End Sub Private Sub Label1_Click() End Sub Private Sub Label3_Click() End Sub Private Sub Label7_Click() End Sub Private Sub OptionButton1_Click() End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_Click() End Sub Private Sub connectionTypeComboBox_Change() connectionTypeImage.PictureSizeMode = fmPictureSizeModeStretch If connectionTypeComboBox.Value = "Iki ucu mafsal" Then connectionTypeImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\1.jpg") connectionTypeImage.Visible = True End If If connectionTypeComboBox.Value = "Bir ucu ankastre bir ucu serbest" Then connectionTypeImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\4.jpg") End If If connectionTypeComboBox.Value = "Bir ucu ankastre bir ucu mafsal" Then connectionTypeImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\3.jpg") End If If connectionTypeComboBox.Value = "Iki ucu ankastre" Then connectionTypeImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\2.jpg") End If End Sub Private Sub profileComboBox_Change() profileImage.PictureSizeMode = fmPictureSizeModeStretch If profileComboBox.Value = "I Profil" Then profileImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\5.jpg") End If If profileComboBox.Value = "T Profil" Then profileImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\6.jpg") End If If profileComboBox.Value = "U Profil" Then profileImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\7.jpg") End If If profileComboBox.Value = "L Profil" Then profileImage.Picture = LoadPicture("C:\Users\alper.gok\Desktop\Flambaj\8.jpg") End If End Sub Private Sub UserForm_Initialize() connectionTypeComboBox.List = Array("Iki ucu mafsal", "Bir ucu ankastre bir ucu serbest", "Bir ucu ankastre bir ucu mafsal", "Iki ucu ankastre") profileComboBox.List = Array("I Profil", "T Profil", "U Profil", "L Profil") connectionTypeImage.Visible = False End Sub
Editor is loading...