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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......
ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......