Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
2.3 kB
4
Indexable
Never
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