VBÖÐcheckÔõôʹÓÃ
ÎÒҪʵÏÖ£ºform1ÖÐÊÇÁ½¸öcheckµÄÑ¡Ôñ
form2ÖÐÓÐÁ½¸öframe,Á½¸öframeÖÐÓÐÁ½¸öpicturebox,ËûÃǵÄvisibleÊÇfalse,
ÇëÎÊÈçºÎ±à³ÌʹѡÔñcheck1ʱÔËÐÐpicture1,Ñ¡Ôñcheck2ʱÔËÐÐpicture2 ,Á½¸ö¶¼Ñ¡Ê±£¬Í¼Æ¬¶¼³öÏÖ£¬¶¼Ã»Ñ¡Ê±£¬Ìáʾ´íÎó¿ò
лл¸÷λµÄ°ïÖú
if form1.check1.value=unchecked and form1.check2.value=unchecked then msgbox "´íÎó"
if form1.check1.value=checked then form2.picturebox1.visible=true
if form1.check2.value=checked then form2.picturebox2.visible=true
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......