Kú 1

Sau ®©y lµ mét sè c©u hái nhá cña c¸c b¹n t«i, b¹n cã thÓ dïng chóng ®Ó t« ®iÓm thªm cho øng dông Visual Basic cña m×nh. §©y kh«ng ph¶i lµ nh÷ng ®iÒu cao siªu, l¹ l½m vµ còng kh«ng ph¶i lµ c¸ch gi¶i thÝch tèi ­u nh­ng nã gióp chóng ta hiÓu thÊu ®¸o ®­îc mét sè vÊn ®Ò. Hy väng sau khi ®äc xong b¹n sÏ "µ th× ra lµ vËy ! ..."

Lµm sao ®Ó cã ®­îc nh÷ng dßng ch÷ ch¹y liªn tôc trªn mµn h×nh ? 

ThËt ra chuyÖn nµy còng dÔ hiÓu, b¹n chØ cÇn c¾t ch÷ ë ®Çu ®o¹n v¨n b¶n vµ g¾n nã vµo cuèi ®o¹n v¨n b¶n, lµm liªn tôc nh­ vËy sÏ t¹o cho ng­êi dïng cã c¶m gi¸c lµ dßng ch÷ ®ang ch¹y. B¹n h·y më 1 form míi, trªn ®ã t¹o 1 textbox (Text1), g¸n 1 dßng v¨n b¶n vµo thuéc tÝnh text cña textbox, t¹o 1 timer (timer1).

Khi form load sÏ khëi ®éng Timer víi trÞ Interval = 100

Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Vµ timer sÏ xö lý c¸c lÖnh theo yªu cÇu cña b¹n mçi khi nã ph¸t sinh 1 sù kiÖn thêi gian.
Private Sub Timer1_Timer()
    Dim x As String
    Dim y As String
'g¸n x = 1 ký tù ®Çu dßng v¨n b¶n
    x = Left(Text1.Text, 1)
'g¸n y lµ phÇn cßn l¹i
    y = Right(Text1.Text, Len(Text1.Text) - 1)
'HiÓn thÞ trë l¹i textbox theo thø tù ng­îc l¹i.
    Text1.Text = y + x
End Sub

B¹n cã thÓ thay textbox b»ng labelbox ®Ó ng­êi dïng kh«ng thÓ can thiÖp vµo dßng v¨n b¶n ®ang ch¹y, lóc nµy b¹n ph¶i thay ®æi thuéc tÝnh caption thay v× text cña textbox.

Canh form gi÷a mµn h×nh khi hiÓn thÞ ? 

ChØ viÖc thªm ®Ýnh lÖnh nµy vµo thñ tôc t×nh huèng FormLoad cña form t­¬ng øng.

Me.Move (Screen.Width - Me.Width)\2, Screen.Height.Height - Me.Height)\2

Lµm thÕ nµo ®Ó t¹o hiÖu øng 3D ? 

B¹n h·y më 1 form trèng, trªn ®ã t¹o 1 image, vÎ 4 ®èi t­îng Line. Kh¶o s¸t t×nh huèng MouseMove cña Image, khi rª mouse trªn Image lËp tøc 4 ®èi t­îng line sÏ hiÓn thÞ xung quanh Image. Cßn 3D ­ ? B¹n chØ viÖc cho 2 line cña c¹nh ph¶i vµ d­íi mµu ®en (Line1, Line2), cßn 2 line cña c¹nh tr¸i vµ trªn mµu tr¾ng (Line3, Line4).

Form khi thiÕt kÕ

Khi di chuyÓn Mouse trªn form, mäi chuyÖn ®Òu b×nh th­êng, 4 ®èi t­îng Line kh«ng xuÊt hiÖn (thuéc tÝnh Visible=False)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.Visible = False
    Line2.Visible = False
    Line3.Visible = False
    Line4.Visible = False
End Sub

Khi di chuyÓn mouse trªn ®èi t­îng Image, 4 line sÏ ®­îc xÕp xung quanh vµ hiÓn thÞ l¹i b»ng c¸ch thay ®æi c¸c thuéc tÝnh X1, Y1, X2, Y2 cña line. Nhê cã mµu s¾c thÝch hîp nªn ta cã c¶m gi¸c Image næi lªn khi rª mouse ®Õn.

Khi rª mouse ®Õn 

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'C¹nh Ph¶i
    Line1.X1 = Image1.Left + Image1.Width
    Line1.Y1 = Image1.Top
    Line1.X2 = Image1.Left + Image1.Width
    Line1.Y2 = Image1.Top + Image1.Height
'C¹nh d­íi
    Line2.X1 = Image1.Left
    Line2.Y1 = Image1.Top + Image1.Height
    Line2.X2 = Image1.Left + Image1.Width
    Line2.Y2 = Image1.Top + Image1.Height
'C¹nh tr¸i
    Line3.X1 = Image1.Left
    Line3.Y1 = Image1.Top
    Line3.X2 = Image1.Left
    Line3.Y2 = Image1.Top + Image1.Height
'PhÝa trªn
    Line4.X1 = Image1.Left
    Line4.Y1 = Image1.Top
    Line4.X2 = Image1.Left + Image1.Width
    Line4.Y2 = Image1.Top
'Cho hiÖn l¹i 4 ®èi t­îng Line
    Line1.Visible = True
    Line2.Visible = True
    Line3.Visible = True
    Line4.Visible = True
End Sub

Khi nhÊn Mouse trªn Image, sù kiÖn MouseDown (nhÊn mouse) ph¸t sinh vµ ®¶o mµu cña 4 ®èi t­îng line t¹o c¶m gi¸c Image bÞ lâm xuèng.

Vµ khi nhÊn mouse

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.BorderColor = QBColor(7) 'Mµu tr¾ng
    Line2.BorderColor = QBColor(7)
    Line3.BorderColor = QBColor(0) 'Mµu ®en
    Line4.BorderColor = QBColor(0)
End Sub

Sau khi nhÊn, th¶ mouse ra lµm ph¸t sinh sù kiÖn MouseUp, c¸c lÖnh cÇn xö lý trong sù kiÖn nµy lµ tr¶ mµu s¾c l¹i nh­ ban ®Çu.

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.BorderColor = QBColor(0)
    Line2.BorderColor = QBColor(0)
    Line3.BorderColor = QBColor(7)
    Line4.BorderColor = QBColor(7)
End Sub

ThÊy cã vÎ h¬i cùc khæ qu¸ c¸c b¹n nhØ ?

NguyÔn Hå Thiªn §¨ng, 03 th2 2002 05:52:06 CH
thdang@tlnet.com.vn

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com