Çó¾È£¡vbÁ´½Ó²»ÉÏ£¡¸ßÊÖÇë½ø
СµÜ³õѧvb£¬ÕÕÊé±¾ÉϸãÁËÒ»¸ö Îļþ¼ìË÷ϵͳ £¬´úÂëÈçÏÂ
Private Sub Form_Initialize() '
Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 2
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Command1.Enabled = True
Text2.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Data1_Reposition()
On Error GoTo ReposErr
Dim filename As String
OLE1.OLETypeAllowed = vbOLELinked
OLE1.Class = "Word.Document.8"
filename = App.Path & " \ " & Data1.Recordset.[ÎļþÃû]
OLE1.SourceDoc = filename
OLE1.Action = 1
Exit Sub
ReposErr:
MsgBox "´ò¿ªÎļþ´íÎ󣬿ÉÄÜÕâ¸ö¹«ÎÄÎļþ²»´æÔÚ", vbCritical + vbOKOnly, "´íÎó"
End Sub
Private Sub Combo1_Click()
MakeString
End Sub
Private Sub Combo2_Click()
MakeString
End Sub
Private Sub Text_Change()
On Error GoTo TextErr
If Text1.Text = "" Then
&n
Ïà¹ØÎÊ´ð£º
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
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
......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......