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