VB coding
1.ÓÃVB6ÅжÏÎļþ´æÔÚÃî·¨
ÔÚ±à³Ìʱ¾³£»áÓõ½ÅжÏÎļþÊÇ·ñ´æÔÚ£¬±ÈÈç¶ÔÎļþ×ö¶Áд²Ù×÷ǰ£¬»òÊÇÅжÏÃÜÔ¿ÎļþÊÇ·ñ´æÔڵȡ£Åжϵķ½·¨Óкܶ࣬ÓÐЩ·½·¨ËäºÜʵÓ㬵«Óе㷱Ëö¡£Æäʵ»¹¿ÉÒÔÓиü¼òµ¥µÄ·½·¨£¬¾ÍÊÇʹÓÃVB 6.0ÌṩµÄFileSystemObject¶ÔÏó¡£
¡¡¡¡FileSystemObject¶ÔÏó²»ÊÇVBÄÚÖöÔÏó£¬Ê¹ÓÃǰ±ØÐëÊ×ÏÈÑ¡Ôñ[¹¤³Ì]→[ÒýÓÃ]£¬ÔÚ³öÏֵĴ°¿ÚÖÐÑ¡Ôñ“Microsoft Scripting Runtime”£¬È»ºóÀûÓÃFileSystemObjectµÄFileExists·½·¨À´ÅжÏÎļþÊÇ·ñ´æÔÚ¡£Ê¾Àý³ÌÐò´úÂëÈçÏ£º
¡¡¡¡Private Sub Command1_Click()
¡¡¡¡ ′ÒýÓÃFileSystemObject¶ÔÏó
¡¡¡¡ Dim fs As New FileSystemObject
¡¡¡¡ ′ÀûÓÃFileSystemObject¶ÔÏóµÄFileExists
¡¡¡¡ ′·½·¨ÅжÏÎļþÊÇ·ñ´æÔÚ
¡¡¡¡ If fs.FileExists(″c:\£ª.gif″) Then
¡¡¡¡ MsgBox ″Îļþ´æÔÚ″
¡¡¡¡ Else
¡¡¡¡¡¡¡¡¡¡¡¡MsgBox ″Îļþ²»´æÔÚ″
¡¡¡¡¡¡¡¡End If
¡¡¡¡End Sub
¡¡¡¡Áé»îÔËÓÃFileSystemObject¶ÔÏó¿ÉÒÔ½â¾öÓëÎļþ²Ù×÷ÓйصĴ󲿷ÖÎÊÌâ¡£
¡¡¡¡ÒÔÉϳÌÐòÔÚPWin 98,VB 6.0ÖÐÎÄÆóÒµ°æÖÐÔËÐÐͨ¹ý¡£
2. CheckboxÑ¡Ôñ
chkBlacklist = vbUnchecked
chkBlacklist.Style
If StrComp(curVisitor.IsBlacklist, "1") = 0 Then
chkBlacklist = vbChecked
End If
Ïà¹ØÎĵµ£º
µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......
Óɵ×ÖÁÉÏÊÇ£º
• ÍйÜ×ÊÔ´
• WMI »ù´¡½á¹¹
• ʹÓÃÕß
ÍйÜ×ÊÔ´
ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......
VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
//VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......
Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align ÊôÐÔ Ê¹¿Ø¼þλÓÚ´°¿Úij²¿·Ö
alignment ÊôÐÔ ¿Ø¼þ±êÇ©µÄÎÄ×ÖλÖÃ
allocmem º ......
c:\windows\sytem32\ieframe.dll\1ÕÒ²»µ½,´íÎó½â¾ö·½°¸.
Õâ¸öieframe.dllÊÇvbÖÐWebBrowser µ÷ÓõĿؼþ£¬µ±ÄãÓÃvbÔٴδò¿ªÄãµÄ¹¤³ÌÖ®ºó£¬¾Í¿ÉÒÔ·¢ÏÖÒÔǰµÄWebBrowser ¿Ø¼þûÓÐÁË¡£¶øÇÒÔٴμÓÔØÒ²ÊDz»ÄܵÄÁË£¬Õâʱ¾ÍÐèÒªÓõ½ÏÂÃæµÄ·½·¨À´´¦Àí£º
°ÑÒÔÏÂÄÚÈÝ×ö³ÉÒ»¸ö×¢²á±íÎļþfixieframe.reg£¬µ¼Èë×¢²á±í¼´¿É£º
Windows Re ......