vb Ìí¼ÓÊý¾Ý²»³É¹¦£¬Çë¸ßÊÖÖ¸µ¼
ÓÃvb ±àÁËÒ»¸öÌí¼ÓÎļþ¹¦ÄܵĴ°¿Ú£¬¿ÉÊÇÔËÐÐʱ±¨´í
´úÂëÈçÏ£º
Private Sub Command2_Click()
Unload Form2
Form1.Show
Form1.Enabled = True
End Sub
Private Sub Command1_Click()
On Error Resume Next
Form1.Data1.Recordset.AddNew
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
Form1.Data1.Recordset.Update
If Err.Number <> 0 Then
Beep
MsgBox "ÊäÈëÊý¾Ý´íÎó£¬ÇëÖØÐÂÊäÈë", vbCritical + vbOKOnly, "´íÎóÐÅÏ¢"
Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If
Foem1.Enabled = True
Unload Form2
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = &quo
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......
ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com
¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿
VBû×ö¹ýÕ¦Õû£¡
VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......