vb ʵÓú¯Êý
ת×Ô:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°Ê±¼ä¡£
Date
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°ÈÕÆÚ¡£
Now
·µ»Ø´ú±íµ±Ç°ÈÕÆÚºÍʱ¼äµÄ±àÂëÖµ¡£¸Ãº¯Êý¾³£ÓÃ×÷ÆäËüϵͳʱÖÓº¯ÊýµÄ²ÎÊý¡£
Hour(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄСʱ²¿·Ö£¨0µ½23£©¡£
Minute(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄ·ÖÖÓ²¿·Ö£¨0µ½59£©¡£
Second(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄÃ벿·Ö£¨0µ½59£©¡£
Day(Date)
·µ»ØÔ·ÝÖеÄÈÕÆÚÊý£¨1µ½31£©¡£
Month(Date)
·µ»ØÈÕÆÚÖеÄÔ·ݣ¨1µ½12£©¡£
Year(Date)
·µ»ØÈÕÆÚÖеÄÄê¶È¡£
Weekday(Date)
·µ»ØÈÕÆÚÖдú±íÒ»ÖÜÖеÄÐÇÆÚ¼¸¡£
Abs(n)
·µ»ØnµÄ¾ø¶ÔÖµ¡£
Atn(n)
·µ»ØnµÄ·´ÕýÇÐÖµ£¬ÒÔ»¡¶ÈΪµ¥Î»¡£
Cos(n)
·µ»ØnµÄÓàÏÒÖµ£¬ÒÔ»¡¶ÈΪµ¥Î»¡£
Exp(n)
·µ»ØeµÄn´Î·½¡£
Rnd(n)
²úÉú0µ½1Ö®¼äµÄÒ»¸öËæ»úÊý¡£
Sgn(n)
nСÓÚ0ʱ·µ»Ø-1£¬nµÈÓÚ0ʱ·µ»Ø0£¬n´óÓÚ0ʱ·µ»Ø1¡£
Sin(n)
·µ»ØnµÄÕýÏÒÖµ£¬ÒÔ»¡¶ÈΪµ¥Î»¡£
Sqr(n)
·µ»ØnµÄƽ·½¸ù¡£
Str(n)
°ÑÊýֵֵת»»³É×Ö·û´®¡£
Tan(n)
·µ»ØnµÄÕýÇÐÖµ£¬ÒÔ»¡¶ÈΪµ¥Î»¡£
Val(n)
°Ñ×Ö·û´®×ª»»ÎªÊýÖµÖµ¡£
Int(n)
·µ»ØÊý×ÖµÄÕûÊý²¿·Ö¡£8.4-->9
Fix(n)
·µ»ØÊý×ÖµÄÕûÊý²¿·Ö¡£8.4-->8
ÒÔÉϺ¯ÊýÔÚVB6ºÍVBScriptÖж¼ÊÊÓã¬ÔÚ¡£NETÀïÃæÒªÔÚÇ°Ãæ¼ÓÉÏÏàÓ¦µÄÃüÃû¿Õ¼ä£¬ÈçSystem.Math.Cos()£¬Microsoft.VisualBasic.Hour()¡£
Êý¾ÝÀàÐÍת»»º¯Êý£º
ת»»º¯Êý
½«±í´ïʽת»»³É
CBool
Boolean
CByte
Byte
CCur
Currency 'Ö»ÔÚVB7.0ÒÔÏÂÓÐЧ
CDate
Date
CDbl
Double
CInt
Integer
CLng
Long
CSng
Single
CStr
String
CVar
Variant ‘Ö»ÔÚVB7.0ÒÔÏÂÓÐЧ
CVErr
Error 'Ö»ÔÚVB7.0ÒÔÏÂÓÐЧ
ÈôÏëÁ˽âVisual BasicÕýÔÚʹÓÃÄÄÖÖ±äÁ¿ÀàÐÍ£¬¿ÉʹÓà VarType º¯Êý¡£
×Ö·û´®´¦Àíº¯Êý
¹Ø¼ü×Ö
˵Ã÷
ʾÀý
Ucase
½«×Ö·û´®ÖеÄ×Öĸ¸ÄΪ´óд
Ucase("Kim")·µ»ØKIM
Lcase
½«×Ö·û´®ÖеÄ×Öĸ¸ÄΪСд
Lcase("Kim")·µ»Økim
Len
È·¶¨×Ö·û´®µÄ³¤¶È£¨ÒÔ×Ö·ûΪµ¥Î»£©
Len("Mississ")·µ»Ø7
Right
·µ»Ø×Ö·û´®ÓÒ²¿Ö¸¶¨¸öÊýµÄ×Ö·û
Right("Budapest",3)·µ»Øpes
Left
·µ»Ø×Ö·û´®×ó²¿Ö¸¶¨¸öÊýµÄ×Ö·û
Left("Budapest",4)·µ»ØBuda
Mid
´Óijһָ¶¨Æðʼµã¿ªÊ¼·µ»Ø×Ö·û´®ÖÐÖ¸¶¨¸öÊýµÄ×Ö·û
Mid("Sommers", 4, 3) ·µ»Ømer
InStr
´ÓÒ»¸ö½Ï´ó×Ö·û´®ÖвéÕÒÁíÒ»¸ö×Ö·û
start% = InStr("bob
Ïà¹ØÎĵµ£º
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈαà¼: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾдµ½Á˵ÚÁù¸ö£¬½ñÌìдµãÊ²Ã´ÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖưɡ£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡ÔÐͺ¯Êý¼ò ......
Ìí¼Ó2¸ötext£¬Ò»¸öcommand£¬Ò»¸ö WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......
ÔÚ¿ª·¢Öб£³ÖÁ¼ºÃµÄ±àÂë¹æ·¶ÊÇÊ®·ÖÖØÒªµÄ¡£ÎÒËù²ÉÓõÄеÄVB.net/ASP.NET±àÂë¹æ·¶£¬ÊÇÒ»ÖÖ±»Ö¤Ã÷ÄÜÃ÷ÏÔ¸ÄÉÆ´úÂë¿É¶ÁÐÔ£¬²¢ÓÐÖúÓÚ´úÂë¹ÜÀí¡¢·ÖÀàµÄ±àÂë¹æ·¶¡£²ÉÓÃÕâÖÖ±àÂë¹æ·¶£¬ÄܱÜÃâÈçÐÙÑÀÀûÃüÃû·¨´øÀ´µÄ·±³¤Ç°×º£¬±ãÓÚ¼ÇÒä±äÁ¿µÄÓÃ;¡£ÏÂÃæµÄ½éÉÜÕâÖÖ±àÂë¹æ·¶¡£
Ò»¡¢ÀàÐͼ¶µ¥Î»µÄÃüÃû
1¡¢Àà
¡õÒÔClassÉùÃ÷µÄÀ࣬¶¼±ØÐë ......