xin cho em biet

[soldman1010]

Xin cho em biet lam the nao de mo ta so lan hanh dong la chan hay le?(trong vb6.0)
vd:
Ta co
1 icon trong vb ten: imgIcon va mot icon khac.
khi nhap code _click cho imgIcon :
imgIcon=loadpicture("\path")
thi khi chay chuong trinh nhan vao imgIcon thi se chuyen sang hinh "\path". Vay thi nhap code the nao de khi click vao icon do lan thu 2 se tra lai hinh cua icon ban dau va click lan 3 se la hinh 2
?
Xin cam on.

[KEM_WALL]

ba.n la`m nhu sau
ta.o 2 image luu 2 ca'i hi`nh ca`n la`m , dat ten la` img1, img2

dim a as boolean
sub command1_click
if a then
a = false
img1.visible = true
img2.visible = false
else
a = true
img2.visible = true
img1.visible = false
end if ;)

[White_Rose]

:)Mình có ý kiến thế này:

sub command1_click
Static a as boolean
if a then
a = false
img1.visible = true
img2.visible = false
else
a = true
img2.visible = true
img1.visible = false
end if

Như vậy thì có thể dùng a ở bên ngoài mà sau này debug cũng dễ hơn.

[Nicky]

Mình lại nghĩ thế này
Sub Command1_Click()
static a as booloean
a=not(a)
If a=true then hinh 1
If a = false then hinh2

[White_Rose]

hi hi, mình chỉ muốn nói đến scope của biến a thôi. Nếu muốn optimize nó thì có thể làm ngắn hơn:

Sub Command1_Click()
static a as booloean
img1.visible = a
a=not(a)
img2.visible = a
end sub
:D

[soldman1010]

Co le cac ban da lam roi vi muc dich cua minh la chi load mot hinh thoi. Khi click vao hinh 1 thi hien hinh 2 va nguoc lai. Sau thoi gian tim toi minh nghi do la nhu vay. Mong cac ban dong gop y kien :
Private Sub img1_Click()
Static a As Boolean
If a = False Then
img1.Picture = LoadPicture("\path hinh2")
a = True
Else
a = True
img1.Picture = LoadPicture("\path hinh1")
a = False
End If
End Sub

[White_Rose]

thao tác nhiều như vậy với file chậm lắm á.
nếu không thich thì bạn dùng hẳn 3 cái img cho nhanh
img2.picture = loadpicture(..)
img3.picture = loadpicture(..)

sau đó trong sub, bạn dùng
img1.picture = img2.picture
và
img1.picture = img3.picture