�ݺ�ߣ

Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Label1_Click()End Sub

Private Sub Command1_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm4.ShowEnd Sub

Private Sub Command1_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Command2_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Command3_Click()Form3.HideForm4.ShowEnd Sub

Private Sub Command1_Click()Form4.HideForm1.ShowEnd SubPrivate Sub Command2_Click()Form4.HideForm2.ShowEnd SubPrivate Sub Command3_Click()Form4.HideForm3.ShowEnd SubPrivate Sub Command4_Click()End Sub

Private Sub Label1_Click()End SubPrivate Sub List1_Click()Select Case List1.ListIndexCase 0:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\argentina.jpg ")Case 1:Image1.Picture = LoadPicture(Path + "D:\\4 B\Banderas\bolivia.jpg")Case 2:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\brasil.jpg ")Case 3:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\chile.jpg ")Case 4:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\colombia.jpg ")Case 5:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\ecuador.jpg ")Case 6:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\peru.jpg ")Case 7:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\uruguay.jpg ")Case 8:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\venezuela.jpg ")Case 9:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\guyana.jpg ")Case 10:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\paraguay.jpg ")Case 11:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\surinam.jpg ")Case 12:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\guayana.jpg ")EndSelectEnd Sub

Private Sub Combo1_Change()Text1.Text = Combo1.TextEnd SubPrivate Sub Combo1_Click()If Combo1.ListIndex <> -1 ThenIf Combo1.Text <> "Ninguno" ThenText1.Text = Combo1.List(Combo1.ListIndex)ElseText1.Text = ""EndIfEndIfEnd SubPrivate Sub Command1_Click()Dim nuevo As Stringnuevo = InputBox("Ingrese un nuevo elemento", "Nuevo elemento")IfLen(Trim(nuevo)) > 0 ThenCombo1.AddItem nuevoEndIfEnd SubPrivate Sub Command2_Click()If Combo1.ListIndex <> -1 ThenCombo1.RemoveItem Combo1.ListIndexText1.Text = ""EndIfEnd SubPrivate Sub Command3_Click()Combo1.ClearEnd SubPrivate Sub Command4_Click()EndEnd Sub

Private Sub Command1_Click()Dim clave As Stringpituficodigo = "pipiripipirinay"If Text1.Text = pituficodigoThenMsgBox ("BienvenidO al sistema")Form2.ShowForm1.HideElseMsgBox ("Error,Estabas cerca!!!!,VUELVE A INTENTARLO")Text1.Text = ""Text1.SetFocusEndIfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Form1.ShowText1.SetFocusEnd Sub

Private Sub Command1_Click()Dimdias As Integer, costo As Integer, cable As Integer, telefono As Integer, bar As Integer, hospedaje As Integer, servicio As Integer, total As Integer, igv As Integer, netos As Integerdias = Val(Text2.Text)If Option1.Value = True Then costo = 50If Option2.Value = True Then costo = 70hospedaje = costo * diasText3.Text = Str(hospedaje)If Check1.Value = vbCheckedThen cable = 20If Check2.Value = vbCheckedThentelefono = 20If Check3.Value = vbCheckedThen bar = 20servicio = cable + telefono + barText4.Text = Str(servicio)total = hospedaje + servicioText5.Text = Str(total)igv = 0.18 * totalText6.Text = Str(igv)neto = total + igvText7.Text = Str(neto)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()Form3.ShowEnd SubPrivate Sub Command4_Click()Dim res As Integerres = MsgBox("desea salir del sistema?", 4 + 32 + 256, "salir")If res = 6 ThenEndElseCancel = TrueEndIfEnd Sub

Private Sub Command1_Click()Form2.ShowForm3.HideEnd Sub

�ݺ�ߣ

Trabajo de ept lissethe toro

Recommended

More Related Content

What's hot (19)

Viewers also liked (20)

Similar to Trabajo de ept lissethe toro (20)

Trabajo de ept lissethe toro