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

Ò½Ôº Ã×ÀÏʦ VB×ܽá

×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶10Äê VB 1¡·ÀïÃæµÄÄÚÈݲ¶à£¬µ«Ã×ÀÏʦ¸Ð¾õºÜ¿Õ¶´£¬¸Ð¾õÎÒÔÚ·º·º¶ø̸£¬ÆäʵÎÒÒ²Óиоõ¡£
ΪÁ˽«Ã×ÀÏʦ˵µÄ×᷽ܽ·¨Ó¦ÓÃÓÚʵ¼ù£¬ÎÒÕâÁ½ÌìÇôúÂë·¢ÏÖMsgBox£¬InputBox£¬PrintµÄÓ÷¨²î²»¶à£¬È»ºó¾Í½«Æä×ܽáÈçÏ£º
MsgBox(prompt[, buttons] [, title] [, helpfile, context])£¬ÆäÖÐPromptÊDZØÐèµÃ×Ö·û´®±í´ïʽ£¬×÷ΪÏÔʾÔÚ¶Ô»°¿òÖеÄÏûÏ¢¡£ButtonÊÇ¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬ÏÔʾָ¶¨°´Å¥µÄÊýÄ¿ºÍÐÎʽ£¬È±Ê¡ÖµÎª0¡£Title±êÌâÀ¸ÖеÄÏÔʾµÄ×Ö·û´®±í´ïʽ
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
promptͬÉÏ£¬titleͬÉÏ£¬defaultÏÔʾÔÚÎı¾¿òÖеÄ×Ö·û´®±í´ïʽ£¬ÈçÊ¡ÂÔ£¬ÔòÎı¾¿òΪ¿Õ¡£Xpos£¬Ypos¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬Ö¸¶¨¶Ô»°¿òµÄ×ó±ßÓëÆÁÄ»×ó±ßµÄˮƽ¾àÀ룬¶Ô»°¿òµÄÉϱßÓëÆÁÄ»ÉϱߵľàÀë¡£
object.Print [outputlist] ÔÚImmediate´°¿ÚÖÐÏÔʾÎı¾¡£objectÊDZØÐèµÄ¶ÔÏó±í´ïʽ£¬ÆäֵΪ“Ó¦ÓÃÓÚ”ÁбíÖеĶÔÏó¡£ outputlist¿ÉÑ¡µÄÒª´òÓ¡µÄ±í´ïʽ£¬ÈçÊ¡ÂÔ£¬Ôò´òÓ¡Ò»Ðпհ×ÐС£
ÈýÕßÎÒÖ»¿´µ½ÐÎʽºÍ¹¦ÄÜÉϵÄÏàËÆ£¬²¢Ã»ÓÐÉËûÃǵĸùÔ´¡£Ò²ÊÇÒòΪ×Ô¼º¿´µÄ»¹²»¹»ÉîÈë°É£¬²»ÄÜ´ïµ½Ã×ÀÏʦµÄЧ¹û¡£Ã×ÀÏʦÈÃÓÃÒ»¾ä»°¸ÅÀ¨ÎÒµÄÊÕ»ñ£¬ÎÒ˵£º“×¢Òâ×ܽᣬ×ܽá¾ÍÊÇÁªÏëºÍ¶Ô±È¡£”Ëû°ÑͷʧÍûµÄŤ¹ýÈ¥£¬Ëµ£º“ÓÀÔ¶²»ÒªËµ¾ÍÊÇ£¬ËµÒ»´Î´íÒ»´Î¡£µ±Ìýµ½±ðÈË˵¾ÍÊÇʱ£¬ÎÒ¾ÍÖªµÀÕâ¸öÈËÌ«¾ø¶ÔÁË¡£×ܽ᲻½öÓÐÁªÏëºÍ¶Ô±È£¬»¹ÓаüÀ¨µÈ¡£Ö»ÊÇÁªÏëºÍ¶Ô±ÈÎÒÃDZȽϳ£¼û¡£ÏÖÔڵĴóѧѧ¿Æ¶¼»®Öص㣬ÆäʵÖصãÊÇʲô£¬¾ÍÊÇÈËÃǾ­³£¼ûµ½ºÍÓõ½µÄ¶«Î÷£¬ÕâÑùÒ»»®¾Í°Ñ֪ʶ¶¼¹ÂÁ¢ÁË£¬Ñ§Ï°Ö®Öиù±¾Ã»ÓÐʲôÖص㣬ÎÒÃÇ¿´ÎÊÌâҪȫÃ棬²»Òª¹ÂÁ¢µØ¿´”˵ÅÖ×ÓʱÌáµ½ÁË¡¶Î÷Óμǡ·£¬ÖªÊ¶ÊÇ¿É´ó¿ÉСµÄ£¬ÎÒÃÇÒª´ïµ½µÄ¾³½çÊÇÈÃ֪ʶ¿É´ó¿ÉС£¬¾Í³ÌÐòÉè¼Æ¶øÑÔСµ½¾Í“³ÌÐòÉè¼Æ”Ëĸö×Ö£¬´óµ½Ëµ¼¸ÌìҲ˵²»Íê¡£¸úËïÎò¿ÕµÄ½ð¹¿°ôËƵģ¬´óС×ÔÈç¡£


Ïà¹ØÎĵµ£º

VB ½«³¤Â·¾¶×ªÎª¶Ì·¾¶ & »ñÈ¡¼ôÕ³°åÖеÄÎļþµÄÁбí

½«³¤Â·¾¶×ªÎª¶Ì·¾¶
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......

VB ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (LongByte)

VB ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
Óõ½µÄAPIÉùÃ÷£º
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......

VBÖеÄת»»º¯Êý

Asc º¯Êý
     
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 &ndas ......

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ 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±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ

·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔ­Ôò
   ·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
      ·±àд·Ç³£³öÉ«µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ