VB¿Ø¼þµÄVisibleÊôÐÔ
Çë½Ìһϸ÷룬ÎÒÏëÓÃÈý¸öµ¥Ñ¡¿ØÖÆÈý¸öÎı¾¿òµÄ¿É¼ûÓë²»¿É¼û£¬´úÂëÈçÏ£º
Private Sub Option1_Click()
If Option1.Value = Ture Then
Text1.Visible = Ture
Text6.Visible = False
Text2.Visible = False
Else
Text1.Visible = False
Text6.Visible = Ture
Text2.Visible = Ture
End If
End Sub
----------------------------
Private Sub Option2_Click()
If Option2.Value = Ture Then
Text1.Visible = False
Text6.Visible = Ture
Text2.Visible = False
Else
Text1.Visible = Ture
Text6.Visible = False
Text2.Visible = Ture
End If
End Sub
----------------------------
Private Sub Option3_Click()
If Option3.Value = Ture Then
Text1.Visible = False
Text6.Visible = False
Text2.Visible = Ture
Else
Text1.Visible = Ture
Text6.Visible = Ture
Text2.Visible = False
End If
End Sub
µ«ÊDz»¶Ô£¬Èç¹ûÈý¸öµ¥Ñ¡ÎÒÒ»¸ö¶¼²»µã£¬ÄÇôÈý¸öÎı¾¿ò¶¼ÄÜ¿´µÄ¼û£¬Ö»ÒªÎÒµãÈκÎÒ»¸ö£¬Èý¸öÎı¾¿ò¶¼Ò»ÆðÏûʧ£¬ÔÙÒ²³ö²»À´£¬ºÜÓôÃÆ°¡£¬
¿´²»³ö¡£
¼Ó¸ösub
´úÂë
Text1.Visible = Option1.Value
Text6.Visible = Option2.Value
Text2.Visible = Option3.Value
end sub
3¸öopt_clickÀïcallÕâ¸ösub£¬ÊÔÊÔ
VB code
Code highlighting produced by Actipro Cod
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......