Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ :

VB Formatº¯Êý

Format[$] ( expr [ , fmt ] )
format ·µ»Ø±äÌåÐÍ
format$ Ç¿ÖÆ·µ»ØÎªÎı¾
--------------------------------
Êý×ÖÀàÐ͵ĸñʽ»¯
--------------------------------
    ¹Ì¶¨¸ñʽ²ÎÊý£º
    General Number ÆÕͨÊý×Ö£¬Èç¿ÉÒÔÓÃÀ´È¥µôǧλ·Ö¸ôºÅ
    format$("100,123.12","General Number") ·µ»ØÖµ 100123.12
   
    Currency »õ±ÒÀàÐÍ£¬¿ÉÌí¼Óǧλ·Ö¸ôºÅºÍ»õ±Ò·ûºÅ
    format$("100123.12","Currency") ·µ»ØÖµ £¤100,123.12
   
    Fixed ¸ñʽΪ´øÁ½Î»Ð¡ÊýµÄÊý×Ö
    format$("100123","Fixed") ·µ»ØÖµ 100123.00
   
    Standard ±ê×¼£¬¼´´øÇ§Î»·Ö¸ôºÅºÍÁ½Î»Ð¡Êý
    format$("100123","Standard") ·µ»ØÖµ 100,123.00
   
    Percent °Ù·ÖÊý
    format$("100123","Percent") ·µ»ØÖµ 10012300.0 ......

VBÎÞËù²»ÄÜÖ®ËÄ£ºÖÆ×÷͸Ã÷ºÍ°ë͸Ã÷´°Ìå

VBÎÞËù²»ÄÜÖ®ËÄ£ºÖÆ×÷͸Ã÷ºÍ°ë͸Ã÷´°Ìå
 
——×÷ÕߣºÖÓÉù 
 
ÎÒÃǾ­³£¿ÉÒÔ¿´µ½ÕâÑùµÄ´°Ì壬¾õµÃºÜìÅ£¬ÈçͼËùʾ£º
 
 
        Í¬Ñù£¬¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËÆºõÊ×ÏÈÏëµ½µÄ¾ø¶Ô²»ÊÇVB£¬¶ø´ó²¿·Ö³ÌÐòÔ±Ïëµ½µÄÒ»¶¨ÊÇVC¡£
         Æäʵ£¬VB¶ÔÓÚÕâ¸öʵÏַdz£·½±ãÇÒ¼òµ¥£¬Óõ½ÁË“user32”ÖеÄSetLayeredWindowAttributes()º¯Êý¡£
 
SetLayeredWindowAttributes()º¯Êý½éÉÜ£º
º¯ÊýÉùÃ÷£º
Declare Function SetLayeredWindowAttributes Lib "user32" () Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
hwndÊÇ͸Ã÷´°ÌåµÄ¾ä±ú£¬
crKeyΪÑÕɫֵ£¬
bAlphaÊÇ͸Ã÷¶È£¬È¡Öµ·¶Î§ÊÇ[0,255]£¬
dwFlagsÊÇ͸Ã÷·½Ê½£¬¿ÉÒÔÈ¡Á½¸öÖµ£ºµ±È¡ÖµÎªLWA_ALPHAʱ£¬crKey²ÎÊýÎÞЧ£¬bAlpha²ÎÊýÓÐЧ£»
µ±È¡ÖµÎªLWA_COLORKEYʱ£¬bAlpha²ÎÊýÓÐЧ¶ø´°ÌåÖеÄËùÓÐÑÕɫΪcrKeyµÄµØ·½½«±äΪ͸Ã÷¡£
 
ÏÂÃæÎÒÃÇ×öÁ½¸öʵÑ飺
  ......

vb³£ÓÃÄÚ²¿º¯Êý£¨ËÄ£©£ºËæ»úÊýº¯Êý


rndº¯Êý·µ»Ø»òÕß˵²úÉúÒ»¸öСÓÚ1µ«´óÓÚ»òµÈÓÚ0µÄsingleÀàÐ͵ÄËæ»úÊý¡£
²úÉúËæ»úÊý֮ǰÐèÒªÒ»¸öÖÖ×Ó¡£
·²»Í¬µÄÖÖ×Ó£¬¿ÉÊ¹Ëæ»úÊýÉú³ÉÆ÷Éú³É²»Í¬µÄËæ»úÊý£»
·ÔÚÒ»¸öÖÖ×ÓÏ£¬Éú³ÉµÄËæ»úÊýÏàͬ¡£
Ëæ»úÊýÉú³ÉÆ÷µÄÓï¾äΪrandomize¡£¸ñʽΪ£ºrandomize[x]¡£
·µ±x>0ʱ£¬Ê¹ÓÃǰһ´Îµ÷ÓÃrndº¯Êý²úÉúµÄËæ»úÊý×÷Ϊ±¾´Î²úÉúËæ»úÊýµÄÖÖ×Ó¡£Ò»°ãͨ¹ýʹÓøòÎÊý»ñµÃ²»Í¬µÄËæ»úÊýÐòÁС£
·µ±x<0ʱ£¬Ê¹ÓÃx×÷ÎªËæ»úÊýÖÖ×Ó£¬ÓÃÓÚ²úÉúÏàͬµÄËæ»úÊýÐòÁС£
·µ±x=0ʱ£¬·µ»Ø×î½üÒ»´Îµ÷ÓÃrndº¯ÊýÉú³ÉµÄËæ»úÊý¡£
·µ±xÊ¡ÂÔʱ£¬µ÷ÓÃrndº¯Êý֮ǰ£¬Èç¹ûûÓÐÖ´ÐÐrandomizeÓï¾ä£¬ÔòÓëx>0µÄÇé¿öÏàͬ¡£·´Ö®£¬Èç¹ûÖ´ÐÐÁËrandomizeÓï¾ä£¬Ôòrndº¯ÊýʹÓÃrandomizeÓï¾äÌṩµÄÐÂÖÖ×ÓÖµ£¬·µ»ØËæ»úÊý¡£
rndº¯Êý²úÉúµÄÊÇ[0£¬1£©Çø¼äÄÚµÄsingleÀàÐÍÊý¾Ý¡£
*&&*Èç¹ûÒªÉú³ÉÆäËûÇø¼äµÄËæ»úÊý»òÕßÓ¢ÎÄ×Öĸ£¬ÔòҪͨ¹ý±í´ïʽÀ´ÊµÏÖ£º
·Éú³É[0£¬x£©Çø¼äµÄËæ»úÊýsingleÀàÐÍÊý¾Ý£¬Ê¹Óñí´ïʽrnd*x
·Éú³É[m£¬n£©Çø¼äµÄËæ»úÊýsingleÀàÐÍÊý¾Ý£¬Ê¹Óñí´ïʽm+rnd*£¨n-m£©
·Éú³É[m£¬n]Çø¼äµÄËæ»úÕûÊý£¬Ê¹Óñí´ïʽint£¨m+rnd*£¨n-m+1£©£©»òÕß ......

VB¾ä±ú¸ÅÄî ²»¶®ÒÔºóÉîÈëÀí½â

×î½üÔÚѧϰwindows APIµÄʱºò·¢ÏÖÔÚ¸ö½Ð¾ä±úµÄ¸ÅÄî¸ã²»Çå³þ£¬ÓÚÊDzéÁËÒ»ÏÂÏÖÔÚ°Ñ×Ô¼ºµÄÀí½âд³öÀ´£¬ºóÃæÔÙÌùÍøÉϵĽéÉÜ¡£¾ä±úÊÇÒ»¸ö´ú±í´°¿ÚµÄÕýÕûÊý£¬µ±È»´°¿ÚµÄ¸ÅÄîÔÚÕâÀï°üº¬ÁË×ÀÃæ¡¢°´Å¥¡¢¹ö¶¯ÌõµÈ£¬Õâ¾ÍÊÇÎÒ×î¼òµ¥µÄÀí½âÁË¡£
ÒÔÏÂÊÇÍøÉϵĽéÉÜ£º
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á˽â¾ä±ú
ÔÚµ÷Óà DLL º¯Êýǰ±ØÐëÀí½âµÄÁíÍâÒ»¸öÖØÒª¸ÅÄîÊǾä±ú¡£¾ä±úÊÇÒ»¸ö 32 λµÄÕýÕûÊý£¬Microsoft® Windows® ÓÃËüÀ´Ê¶±ð´°Ìå»òÆäËû¶ÔÏó£¬ÀýÈç×ÖÌå»òλͼ¡£
ÔÚ Windows ÖУ¬´°¿Ú¿ÉÒÔÓÐÐí¶àÖÖ¡£´°¿Ú¿ÉÒÔÊÇÆÁÄ»ÉϵÄÒ»¿é¾ØÐηâ±ÕÇøÓò£¬±ÈÈçÄúÊìϤµÄÓ¦ÓóÌÐò´°¿Ú¡£´°ÌåÉϵĿؼþ£¨ÀýÈçÁбí¿ò»ò¹ö¶¯Ìõ£©Ò²¿ÉÒÔÊÇ´°¿Ú£¬µ«²¢²»ÊÇËùÓÐÀàÐ͵Ŀؼþ¶¼ÊÇ´°¿Ú¡£×ÀÃæÉϵÄͼ±êºÍ×ÀÃæ±¾ÉíÒ²ÊÇ´°¿Ú¡£
ÒòΪËùÓÐÕâЩÀàÐ͵ĶÔÏó¶¼ÊÇ´°¿Ú£¬ËùÒÔ Windows ¿ÉÒÔÓÃÀàËÆµÄ·½Ê½´¦ÀíËüÃÇ¡£Windows ¸øÃ¿¸ö´°¿ÚÒ»¸öΨһµÄ¾ä±ú£¬Í¨¹ý¾ä±ú²Ù×ݸô°¿Ú¡£Ðí¶à API º¯Êý¿É·µ»Ø¾ä±ú»òÕß½ÓÊܾä±ú×÷²ÎÊý¡£
´´½¨´°¿Úʱ£¬Windows ¸øËüÖ¸ÅÉÒ»¸ö¾ä±ú£¬´°¿ÚÏûʧºó¾ä±ú±»ÊÍ·Å¡£ËäÈ»¾ä±úÔÚ´°¿ÚµÄÕû¸öÉú´æÆÚÄÚ±£³Ö²»±ä£¬µ«²»Äܱ£Ö¤Ä³´°¿ÚÔÚ±»Ë𻵲¢ÖØÐ´´½¨ºó»¹Ê¹ÓÃÔ­À´µÄ¾ä±ú¡£ËùÒÔ£¬Èç¹ûÔÚ±äÁ¿Öд洢Á ......

VB ³£Óà ¿ì½Ý¼ü Èȼü ³ÌÐòÔ±

´°ÌåÉèÖ㬿ؼþ²¼¾ÖʱÓÃ:
alt+v+x¿ÉÒÔ¿ìËÙÏÔʾ³ö¹¤¾ß¿ò
Alt+P+N ÒýÓÃ
ctrl+×óÓÒ¼üÍ·¿ÉÒÔÒÆ¶¯¿Ø¼þ  
shift+×óÓÒ¼üÍ·µ÷Õû¿Ø¼þ´óС
F7   Çл»µ½±à¼­´°¿Ú
Shift+f7 Çл»´úÂë´°¿Ú
¿ª·¢´úÂ룬µ÷ÊÔ´úÂë¶¼ÄÜÓõģº
Ctrl+C¸´ÖÆ
Ctrl+VÕ³Ìù
Ctrl+X¼ôÌù
Ctrl+F²éÕÒ
¿ª·¢´úÂëʱÓõÄ:
Tab ÏòÓÒÍÆ
Shift+Tab Ïò×óÍÆ
Ctrl+H Ìæ»»
Ctrl+J ºÇºÇ£¬ÓеãÏÔ³ó¡£Óм¸¸öº¯Êý¡£ÀÏÒª¿´×ÜÊǼDz»×¡£¬ºÇºÇ £¨Alt+→£©
ctrl+home     jump   to   Ê×ÐР 
ctrl+end       jump   to   ĩβ  
µ÷ÊÔʱʹÓõģº
F5 ÔËÐÐ
F8 ¶ÏµãÔËÐÐ
F9 ÉèÖÃ/Çå³ý¶Ïµã
Ctrl+G Á¢¼´´°¿Ú
Shift+F2       µ½¶¨Òå´¦
Ctrl+Shift+F9 Çå³ýËùÓжϵã
Ctrl+shift+F2   µ½Éϴα༭´¦
Ctrl+PauseBreak Ç¿ÐÐÔÝÍ£³ÌÐò£¨×¨ÃŶԸ¶ËÀÑ­»·Ö®ÀàµÄ£©
shift+F9 ¿ÉÒÔ¼àÊÓ±í´ïʽ
Ctrl+W ±à¼­¼àÊÓ´°¿Ú
Ctrl+n n Enter   ż¾­³£ÒªÁí¿ªÒ»¸ö³ÌÐòÏÈ×öÊÔÑ飬ÄãÃÇ¿ÉÄܺÜÉÙÓðɣ¿ºÇºÇ
ÒÔÉϼ¸¸ö£¬ÊÇÎÒʹÓÃÖÐ×î¶àµÄ¡£µ±È»¡£Æä ......

VBʵÀý —ÍòÄêÀú £¨1£©

1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
    Option Explicit
        Private Sub cmd1_Click()
            Dim a, b
            b = txt1.Text
            a = Weekday(b)
            Select Case a
              Case 1
                  lbl2.Caption = "ÐÇÆÚÈÕ"
              Case 2
               &nbs ......
×ܼǼÊý:40319; ×ÜÒ³Êý:6720; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [1768] [1769] [1770] [1771] 1772 [1773] [1774] [1775] [1776] [1777]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ