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µ÷Óô洢¹ý³Ì²¢µÃµ½·µ»ØÖµ
À´Ô´£º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 ......
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......
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È¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......
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 ......