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
Ïà¹ØÎĵµ£º
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍÏ°¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......
VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
//VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒƶ¯
void CAppNonameDlg::OnMouseMov ......
Ò»¡¢NT·þÎñ³ÌÐò
ËùνNT·þÎñ£¬Êµ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔÔÚϵͳÆô¶¯Ê±×Ô¶¯ÔÚÒ»¶¨Éí·ÝÏÂÆô¶¯µÄ°éËæϵͳ³¤Ê±¼ä´æÔڵĽø³Ì¡£ÏóFTP server¡¢HTTP server¡¢ÍÑ»ú´òÓ¡µÈ¶¼ÊDzÉÓÃNT·þÎñµÄÐÎʽÌṩµÄ¡£Õâʵ¼ÊÉÏÀàËÆUnixµÄroot daemon½ø³Ì¡£NT·þÎñ¹éÄÉÆðÀ´£¬NT·þÎñÓÖÒÔϼ¸¸öÌØÕ÷£º
1¡¢¿ÉÒ ......
ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓƵÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍⶼÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼ ......