ÎÒ¾õµÃVB ºÜÄÑѧŶ£¬ËüËƺõÒªÏÈÏëºÃÎÊÌâµÄÂß¼£¬ÔõôÑùÀ´ÓÃVB½â¾öËü£¬È»ºóÔÙÀ´²Ù×÷£¿ÎÒ¾ÍÊǵ£ÐÄÕâ¸öŶ£¡
ÏÈ´ò±¾»ù´¡Êé¿´¿´
ÔÙ¿´MSDNÉϵÄÀý×Ó
¶àÉÏCSDNÌÖÂÛÎÊÌâ
ºÃÔË~~~~~
VBÊÇÈëÃÅÒ×,¾«Í¨ÄÑ,ÇÐÎðÑÛ¸ßÊÖµÍ,´Ó×î»ù´¡´¦ÏÂÊÖ,ÿһ¸öÎÊÌâÒ»¶¨Òª¸ãÊì,¶àд³ÌÐò,¶àÑо¿Ô´³ÌÐòÒ»¶þÄêÏÂÀ´¾Í²»¾õµÃÄÑÁË
¶à× ......
¾ÍÊÇÒ»¸ö´°¿Ú£¬·ÅÉÏÒ»¸ö°´Å¥£¬
°´Ò»Ï£¬Òþ²Ø´°¿ÚµÄÒ»°ë£¬ÔÙ°´Ò»Ï£¬ÓÖÏÔʾ³öÀ´³ÉÒ»¸öÍêÕû´óС¶¼´°¿Ú
If Me.Height = 300 Then Me.Height = 600 Else Me.Height = 300
if me.left=0 then
me.left=-300
else
me.left=0
endif
VB code:
Dim a As Double
Private Sub Co ......
ÎÒwinform»ÃæÉÏÓкܶà¿Ø¼þ ÏÖÔÚÓÐÒ»¸ö°´Å¥ ÎÒÏëµ±°´ÏÂËüµÄʱºò ËùÓеĿؼþ¶¼²»¿É±à¼ µ«³ý¹ýToolStripÉÏÃæµÄbutton
ÎÒʹÓÃÏÂÃæµÄ·½Ê½²»¿ÉÒÔ ÇóÖªµÀµÄ°ïÎÒÏ ллÁË
C# code:
Private Sub È«»Ãæ²»¿É±à¼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArg ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
DTP2.Enabled = False
End If
End Sub
Private Sub cmd_Click()
Set cn = New ADODB.Connection
Set ......
ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ
Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
objExt.Visible = True
³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ôijһ¸öÓû§¿Ø¼þÖеÄText¸³Öµ£¬Ó¦¸ÃÔõô×öÄØ£¿ Óà argName.Text1.Text=".." »á±¨´íÄØ£¬Çë¸ßÊÖÖ¸µã ......
²é¿´Ö¸¶¨excelÎļþÊÇ·ñ´ò¿ª Èç¹û´ò¿ª ±£´æ²¢¹Ø±Õ
³öÏÖµÄÎÊÌâÊÇ£º
Èç¹û´ò¿ªÎļþºóûÓÐÈκÎÐÞ¸Ä ¿ÉÒÔÕý³£²Ù×÷
Ò»µ©ÓÐÐÞ¸Ä ¾Í»á³öÏÖ²»ÏìÓ¦ µ«ÊÇÔÚexcelÀïÈÎÒâµØ·½µãÁ½ÏÂÊó±ê ¾ÍÓÖ»áÏìÓ¦
Õâ¸öÊÇ¿ç´°ÌåµÄ²Ù×÷
Èç¹ûÊÇÒ»¸ö´°Ìå ͬÑùûÓÐÈκÎÎÊÌâ Çë½Ì
numÊǸö×Ö·û´® ÎļþÃû×ÖµÄÒ»²¿·Ö
If IsFileOpened(A ......