Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Çó¾È£¡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ÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

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ÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ