VB ʹÓÃCheckBox¿Ø¼þµÄÒÉÎÊ
ÇëÎÊ£ºÄܲ»Äܽ«CheckBox¿Ø¼þ״̬¿ØÖƳÉÕâÑù£ºCheckBox¿Ø¼þµÄCaptionÊôÐÔÒ»Ö±ÊǺÚÉ«£¬¶øÇ°ÃæµÄ¸´Ñ¡¿òÒ»Ö±ÊÇÑ¡ÖÐ״̬ÇÒÓû§²»¿É²Ù×÷¡£ÓÐʲôºÃµÄ°ì·¨À´ÊµÏÖ¿ØÖÆÂð£¿
enable=false
µ±È»ÁË£¬Ò²¿ÉÓÃframe£¬ÊÔÊÔ¾ÍÖªµÀÁË...
Check1.Value = 1
Check1.Enabled = False
Private Sub Form_Load()
Check1.BackColor = vbBlack
Check1.Value = 1
Check1.Enabled = False
End Sub
§Ö÷ÊÇÖ¸ENABLE=FALSEÖ®ºóCAPTIONÑÕÉ«ºÚµÄЧ¹û°É,
¿ÉÒÔ°ÑÁ½¸ö·Ö¿ªÀ´,CHECKBOX¾ÍÊÇ´ò¹´¿òµÄ̫С,ÉèÖÃ.Enabled = False ,ºóÃæ¼ÓÒ»¸öLABELÉÏÈ¥,ÉèÖúõϰ¸Ð¾õ¾ÍÊÇÒ»¸ö,Ó¦¸Ã¿ÉÒÔ½â¾öÄãµÄÎÊÌâ
¸Ðл¥Éϵĸ÷λ£º
=========================
cqq_chen :
enable=false
µ±È»ÁË£¬Ò²¿ÉÓÃframe£¬ÊÔÊÔ¾ÍÖªµÀÁË...
============================
¸Õ¿ªÊ¼½Ó´¥VB6°´ÕÕvc6µÄ˼ά·½Ê½Ê¹Óøÿؼþ¡£»¹Ã»Óг¢ÊÔÄã˵µÄframe,ÂíÉÏÊÔһϡ£
**************************
king_06:
Check1.Value = 1
Check1.Enabled = False
**************************
Èç¹ûÖ»ÊÇÕâÑùʹÓõϰ£¬Ö»ÄܽûÓÃÁ˸´Ñ¡¿òµÄ²Ù×÷£¬¶øÇÒ¿Õ¼äµÄcaptionÊôÐÔÒ²±ä³É»ÒÉ«£¬ÎÒ¾ÍÏëÕÒÒ»¸ö
°ì·¨ÊǸÿؼþ¼È²»¿É²Ù×÷£¬captionÊôÐÔÈÔÈ»ÊǿɲÙ×÷ʱµÄÑÕɫ״̬¡£¿ÉÒÔ½è¼ø4Â¥µÄ°ì·¨^_^
^^^^^^^^^^^^^^^^^^^^^^^^^^
jhone99:
Private Sub Form_Load()
Check1.BackColor = vbBlack
Check1.Value = 1
&nbs
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......