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

VB³ÌÐòÖÐʹÓýű¾Ö§³Ö

 ÕýÔÚ¿ª·¢Ð¡ÃØÊéϵͳ²¢²»¶ÏÌá¸ßÆäÖÇÄÜˮƽ,ÆäÖÐÓõ½µÄÊǽű¾Ö§³ÖµÄ¼¼Êõ
ËäÈ»Õⲿ·Ö²»ÊôÓÚ³õѧÕßʹÓÃ,È»¶øÓÐЩÈËÏëѧÕâ¸ö¶«¶«,ÕâÀï¾Í·¢~~~²¼³öÈ¥°É!
н¨Ò»¸ö±ê×¼exe¹¤³Ì(Standard EXE);
"¹¤³Ì"(Project)-->"²¿¼þ"(Components)
Ñ¡¶¨"Microsoft Script Control 1.0" ,λÖÃÊÇC:\WINDOWS\system32\msscript.ocx
Ìí¼Ó¿Ø¼þµ½¹¤³Ì,¸öÈ˰®ºÃÎÒÃüÃûmscScript
È»ºóÌí¼ÓһЩ¿Ø¼þ,µÃµ½ÈçÏÂͼµÄ½çÃæ,È»ºóÊÇÏÂÃæÕâЩº¯Êý,¹ý³Ì:
Private Sub Form_Load()
 mscScript.AddObject "frmMain", frmMain
 mscScript.AddObject "objScript", objScript
End Sub
'---------------------------------------
'vbClass Moudle clsFunction
'---------------------------------------
Public Function strRun(ByVal str As String) As String
 Dim strName As String
 Dim strExpress() As String
 strName = Left(str, InStr(str, " ") - 1)
 strExpress = Split(Mid(str, InStr(str, " ") + 1), ",")
 strRun = CStr(frmMain.mscScript.Run(strName, strExpress(0), strExpress(1)))
End Function
ÐèҪעÒâÊÇÀàÄ£¿éÒªÉú³É¶ÔÏó:Public objScript As New clsFunction,Õâ¸ö֪ʶÔÚÒ»°ã³ÌÐò¿ª·¢ÏºÜÉÙ½Ó´¥;
È»ºó¾ÍÊÇvbScript(½Å±¾)ºÍVisual BasicµÄÇø±ð,ǰÕßÊǺóÕßµÄ×Ó¼¯,Óï·¨Éϲ»ÄÜ»ìÂÒ
×î³£¼ûµÄ´íÎóÊÇ:vbscriptµÄ±äÁ¿Ö»ÓÐVariantÀàÐÍ,Next ºóÃæ²»¸ú±äÁ¿ÃûµÈ...
Ô´´úÂëÔÚÎÒµÄ×ÊÔ´ÄÇÀïÓÐ,
http://prsniper.download.csdn.net/user/prsniper/all/1
Ï£Íû¸ü¶àµÄÈËѧºÃ±à³Ì,²»¶ÏÌá¸ß¼¼Êõ,Éî¶ÈµÄ̽ÌÖ¿ÉÒÔ¼ÓÎÒQQ:627666017
¿Õ¼äÖ»ÃæÏòÐÂÊÖ,,,


Ïà¹ØÎĵµ£º

ASP.NetÖÐʹÓÃVB.Netµ÷Óô洢¹ý³Ì²¢µÃµ½·µ»ØÖµ


ASP.NetÖÐʹÓÃVB.Netµ÷Óô洢¹ý³Ì²¢µÃµ½·µ»ØÖµ
À´Ô´£ºqqreadÂÛ̳ ×÷Õߣº ³ö´¦£ºÇÉÇɶÁÊé 2006-08-03 ½øÈëÌÖÂÛ×é
//´æ´¢¹ý³Ì´úÂë
¡¡CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum ¡¡varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
¡¡Insert Into SMB_In ......

VB.NETѹËõACCESSÊý¾Ý¿â

'´´½¨Êý¾Ý¿â
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ­´æÔÚ£¬ÎÞ·¨´´½¨")
        ......

VBÈ¡µÃÏ߳̾ä±ú

 Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
 OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID)    'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......

asp vb.net ÔÚÏßͳ¼Æ ¼òµ¥°æ±¾ ºÍ¾«È·°æ±¾

 ¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......

BarCode Ëã·¨ VBÀà¿â 1

 Option Explicit
' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128
' Copyright 2004 by MW6 Technologies Inc. All rights reserved.
'
' This code may not be modified or distributed unless you purchase
' the license from MW6.
Public UFPrefixFunctions As Boolean
Private I As Integer
Pri ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ