VB CstrºÍstr/lableºÍtestÎÊÌâ
1¡¢¹ØÓÚ¼ª´óÊÓÆµ£º1-3¼¯½²VB³ÌÐòÉè¼ÆµÄ¸ÅÊö4-30¼¯½²VB»ù´¡ÖªÊ¶£¬Èç¿Ø¼þµÄʹÓÃ31-64¼¯½²ActiveX¿Ø¼þ¡¢Êý¾Ý¿âµÈµÄ¸ß¼¶±à³Ì²¿·Ö¡£
¿´µÄ¹ý³ÌÖÐ×¢Òâ¿ì½Ý¼üµÄʹÓúͽØÍ¼¹¤¾ßµÄÔËÓ㬿´ÊÓÆµÊ±½«Öصã×÷³ö±ê×¢¡£
2¡¢ÓÉCSTR¡¢Cstr£¨£©¡¢string¡¢Instr£¨£©ºÍstr£¨£©£¨´ËΪÉî¶ÈÀ©Õ¹£©ËùÏëµ½µÄ¹ØÓÚ×ܽáµÄ·½·¨¡£
CSTRÔÚVB³ÌÐòÉè¼ÆÖÐÊDz»´æÔڵ쬼´Ê¹ÇÃÈëCSTRºó£¬VBÒ²»á×Ô¶¯Ä¬ÈÏΪCstr¡£
string º¯Êý string£¨2£¬sport£©µÄ·µ»ØÖµÊÇ“ss”
Instr£¨£©£ºInstr£¨3£¬“studystudy”£¬“tu”£©
¹ØÓÚCstrºÍstr£ºÁ½ÖÖ×î´óµÄÇø±ðÔÚÓÚ£º
CstrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±£¬²»ÔÚÆäǰ¼Óǰµ¼¿Õ¸ñÀ´°µÊ¾ÆäÕýºÅ£»
¶øStrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±,·µ»ØµÄ×Ö·û´®°üº¬Ò»Ç°µ¼¿Õ¸ñ°µÊ¾ÓÐÒ»ÕýºÅ¡£
¾ÙÀýÈçÏ£º
Dim i As Single
Dim cstr1 As String
Dim str1 As String
i = 10.3
cstr1 = CStr(i)
str1 = Str(i)
Print Len(cstr1), Len(str1) 'Êä³ö:4 5
i = -10.3
cstr1 = CStr(i)
str1 = Str(i)
Print Len(cstr1), Len(str1) 'Êä³ö:5 5
¼òµ¥µÄ½²£º
Cstr(10.3)="10.3" Str(10.3)=" 10.3"
Cstr(-10.3)="-10.3" Str(-10.3)="-10.3"
¸Ä´íÖУ¬Òªµ±ÐÄ£¬Èç¹û²ÉÓÃStr½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®£¬ÄÇô¶Ô¸Ã×Ö·û´®ÔÚ½øÐÐ
Öðλ´¦Àíʱ£¬ÆäÑ»·´ÎÊý½«¶àÁËÒ»´Î¡£
ÁíÍ⣺
°´ÕÕMSDN½éÉÜ£¬Í¨³£Cstrºó²ÎÊýÀàÐͱȽϹ㷺£¬¼´£º¿ÉÒÔ½«Boolean£¬Date£¬Empty,Êýֵת»¯Îª×Ö·û´®¡£
¶østrºó²ÎÊýͨ³£Ó¦¸ÃΪÊýÖµ¡£
µ«ÊǸù¾Ýʵ¼Ê²âÊÔ£¬Ò²²»¾¡È»¡£
Çë¿´ÏÂÀý£º
Private Sub Command1_Click()
Dim t As Boolean
Print Str(t) 'Êä³ö False(Ç°ÃæÓпոñ£©
Print CStr(t) 'Êä³öFa
Ïà¹ØÎĵµ£º
VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔÀ´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
App ¶ÔÏóÊÇVBÓ¦ÓóÌÐòµÄÈ«¾ÖÐÅÏ¢£¬ÈçÓ¦ÓóÌÐòµÄ±êÌâ¡¢°æ±¾ÐÅÏ¢¡¢¿ÉÖ´ÐÐÎļþºÍ°ïÖúÎļþµÄ·¾¶¼°Ãû³ÆÒÔ¼°ÊÇ·ñÔËÐÐǰһ¸öÓ¦ÓóÌÐòµÄʾÀý¡£
ÊôÐÔ
£££££££ ÆäËûÊôÐÔ£££££££££££££££££
EXEName ÊôÐÔ ·µ»Øµ±Ç°ÕýÔËÐеĿÉÖ´ÐÐÎļþ ......
È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......
¡ôÇëÓÉ´ËÈ·¶¨ÊÇ·ñ±»¶ñÒâÐ޸ġô
×÷ÕߣºÎÒÐÄ·ÉÏè
VBÖÐÒýÈë±¾DLLµÄ·½·¨
·½·¨Ò»£ºÑ¡Ôñ“¹¤³Ì(P)”²Ëµ¥ÏµēÒýÓÃ(N)”£¬ÔÚ³öÏֵĶԻ°¿òÖеã“ä¯ÀÀ°´Å¥”£¬²¢ÕÒµ½DLLËùÔÚλÖá£
·½·¨¶þ£º·ÖÁ½²½×ß
(1)×¢²á¶¯Ì¬Á´½Ó¿â£¬Ê¹ÓÃregsvr32ÃüÁî¡£ÔÚÔËÐжԻ°¿òÖУ¬ÊäÈë“regsvr32 DLLÍêÕû· ......