Znaci u skoli radimo Visual Basic 6 
, sa obzirom da moram do ponedeljka da predam ovaj "program" a nisao sam na problem trebam vasu pomoc 
...
Znaci ovo je zadatak: "Klikom na dugme "POVECAJ" pojavljuje se poruka sa pitanjem "Da li zelis da povecas sliku" kada se odabare "DA, (yes)"slika se povecava za 50 i po sirini i po duzini. Kad se odabere "NE, (no)" pojavljuje se inputbox "Da li ste sigurni?". Ako korisnik upise "DA" fokusiramo se na dugme povecaj a ako "NE" dugme smanji postaje aktivno"
Znaci ja sam nesto uradio... ali nije ispalo kako treba. Pa evo moj code da vidite...
Private Sub cmd1_Click()
Dim poruka As Integer
Dim a As String
poruka = MsgBox("Da li zelis da povecas sliku?", vbYesNo, "Upozorenje"
If poruka = vbYes Then
img1.Height = img1.Height + 50
img1.Width = img1.Width + 50
a = InputBox("Da li si siguran"
ElseIf poruka = vbNo Then
Show "a"
End If
If a = "da" Then
cmd1.SetFocus
ElseIf a = "ne" Then
cmd2.Enabled = True
End If
End Sub
, sa obzirom da moram do ponedeljka da predam ovaj "program" a nisao sam na problem trebam vasu pomoc ...Znaci ovo je zadatak: "Klikom na dugme "POVECAJ" pojavljuje se poruka sa pitanjem "Da li zelis da povecas sliku" kada se odabare "DA, (yes)"slika se povecava za 50 i po sirini i po duzini. Kad se odabere "NE, (no)" pojavljuje se inputbox "Da li ste sigurni?". Ako korisnik upise "DA" fokusiramo se na dugme povecaj a ako "NE" dugme smanji postaje aktivno"
Znaci ja sam nesto uradio... ali nije ispalo kako treba. Pa evo moj code da vidite...
Private Sub cmd1_Click()
Dim poruka As Integer
Dim a As String
poruka = MsgBox("Da li zelis da povecas sliku?", vbYesNo, "Upozorenje"
If poruka = vbYes Then
img1.Height = img1.Height + 50
img1.Width = img1.Width + 50
a = InputBox("Da li si siguran"
ElseIf poruka = vbNo Then
Show "a"
End If
If a = "da" Then
cmd1.SetFocus
ElseIf a = "ne" Then
cmd2.Enabled = True
End If
End Sub