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

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽö̸VB6ÖÐ×Ö½ÚÊý×éºÍ×Ö·û´®µÄÏ໥ת»»¹ý³ÌÖÐӦעÒâµÄÎÊÌâ¼°Æä½â¾ö°ì·¨¡£
¡¡¡¡ ÔÚVisual BasicÖÐʹÓÃByteÊý×éÖ÷ÒªÊÇΪÁË32λAPIº¯ÊýµÄ²ÎÊý´«µÝºÍº¯ÊýµÄ·µ»Ø¡£ÔÚ32λµÄVisual Basic°æ±¾ÖУ¬×Ö·û´®±»¼Ù¶¨ÎªUnicode×Ö·û£¬ÆäÖÐÿ¸ö×Ö·ûÕ¼ÓÃÁ½¸ö×Ö½Ú¡£ÏµÍ³×Ô¶¯µØ½«UnicodeµÄÁ½¸öÁ¬Ðø×Ö½Úת»»³É1¸ö×Ö½ÚµÄANSI×Ö·û¡£µ«ÊÇ£¬Èç¹û¸Ã×Ö·û´®°üº¬¶þ½øÖÆÊý¾Ý£¬ÆäÄÚÈݽ«±äµÃºÜÄÑÀí½â¡£ÀýÈ磬һ¸öºº×ÖÊÇÁ½¸ö×Ö½Ú£¬ÔÚVisual Basic 6.0Öеij¤¶È¾ÍÖ»ÊÇ1£¬Õ⽫¸øÎÒÃǼÆËãµ¥¸öºº×ֵĹú±êÂë´øÀ´Ò»Ð©Âé·³¡£ÓÐÁËByteÊý×飬ÕâЩÎÊÌâ¾Í½«Ó­Èжø½â¡£
¡¡¡¡ ÁíÍ⣬Visual BasicÖеÄ×Ö·û´®ºÍCÓïÑÔÖеÄ×Ö·û´®ÓÐһЩ²»Í¬£¬±¾ÎĽ«¸ø³öÒ»¸öº¯Êý£¬°ÑC×Ö·û´®×ª»»³ÉVisual Basic×Ö·û´®¡£
¶þ¡¢ ÓÃByteÊý×é´úÌæ×Ö·û´®
¡¡¡¡ ByteÊý×é°üº¬µÄÊÇ0£­255Ö®¼äµÄASCIIÂë×Ö·û£¬Ëü²»»áÏó×Ö·û´®ÄÇÑù±»ÏµÍ³×÷Ô¤´¦Àí¡£Äã¿ÉÒÔÔںܶàAPIº¯ÊýÖÐÓÃÀ´ByteÊý×é´úÌæ×Ö·û´®¡£
¡¡¡¡ ÀýÈ磬ÏÂÃæµÄ´úÂëÖÐÓÃGetSystemDirectoryÕâ¸öWindows APIº¯ÊýÀ´È¡µÃWindowsµÄϵͳ·¾¶¡£Ò»¹²ÓÐÁ½¶Î´úÂ룬һ¶Î´úÂëÊÇ´«µÝÒ»¸ö×Ö·û´®À´´æ´¢º¯Êý·µ»ØµÄϵͳ·¾¶£¬ÁíÒ»¶Î´úÂëÊÇ´«µÝÒ»¸öByteÊý×éÀ´´úÌæ×Ö·û´®¡£
¡¡¡¡ ΪÁ˸üºÃµØ±È½Ï£¬Á½¶Î´úÂëµÄ²»Í¬²¿·Ö¶¼ÓúÚÌå±ê³ö¡£¶ÁÕß¿ÉÒÔ×Ðϸ±È½ÏÕâÁ½¶Î´úÂëµÄ²îÒ죬ÕâÑùÄú»á¸üÉîÈëµØÀí½âByteÊý×éºÍ×Ö·û´®µÄ²î±ð¡£
¡¡¡¡ °ÑÕâÁ½¶Î´úÂëµÄÈκÎÒ»¶Î·ÅÈëÒ»¸ö´°ÌåÖÐÔËÐУ¬µ«»÷´°ÌåµÄ¿Õ°×ÇøÓò£¬Ä㽫»áÔÚ´°ÌåÖп´µ½WindowsµÄϵͳ·¾¶¡£
¡¡¡¡ ÏÂÃæÊÇʹÓÃ×Ö·û´®µÄ´úÂ룺
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Click()
¡¡ Dim n As Integer
¡¡ Dim str As String
¡¡ str = Space$(256)
¡¡ n = GetSystemDirectory(str, 256)
¡¡ str = Left$(str, n)
¡¡ Print str
End Sub
¡¡¡¡ ÔÚÉÏÃæÕâ¶Î´úÂëÖУ¬×Ö·û´®²ÎÊýlpBuffer·µ»ØWindowsµÄϵͳ·¾¶¡£ÔÚº¯Êýµ÷ÓÃ֮ǰ£¬½«±äÁ¿Ô¤¶¨Òå³É256¸ö×Ö·û£¬²¢ÔÚº¯Êý·µ»ØÊ±Çå³ý¶àÓàµÄ×Ö·û¡£
×¢Ò


Ïà¹ØÎĵµ£º

ÕÐÆ¸VBÈí¼þ¹¤³Ìʦ

VBÈí¼þ¹¤³Ìʦ£º
ְλÃèÊö£º
1¡¢½øÐбàÂë¡¢²âÊÔ£»
2¡¢Ôڹ涨ʱ¼äÄÚÌá½»Ô´´úÂë¡£
¸ÚλҪÇó£º
1¡¢ÊìϤMS SQLÊý¾Ý¿â£»
2¡¢ÊìϤVB 6.0£»
3¡¢ÓÐÒµÎñϵͳ¿ª·¢¾­Ñ飻
4¡¢¾ß±¸Á¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬ÇÚ·Ü¡¢ÉϽø£»
5¡¢´óר»òÕßÒÔÉÏѧÀú£»
6¡¢¾ßÓÐ1Äê»òÕßÒÔÉÏÏà¹Ø¹¤×÷¾­Ñé £»
7¡¢ÊìϤC#ÓÅÏÈ¡£
VBÐÂÊÖ¡¢³õ¼¶³ÌÐòÔ±¹«Ë¾Ìṩרà ......

vb×öµÄ´óСд×Öĸת»»Æ÷

'´óСд×Öĸת»»Æ÷vb
'½çÃæ°üÀ¨ command¡¢command1¡¢command2¡¢command3 ºÍÒ»¸ö text Îı¾¿ò
'command Ϊ“»¥×ª”°´Å¥£¬command1 Ϊ“ת´ó”°´Å¥£¬command2 Ϊ“תС”°´Å¥£¬command3 Ϊ“Çå³ý”°´Å¥
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......

VB/VBAͨÓ÷¾¶Ñ¡Ôñ¶Ô»°¿ò

Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......

΢ÐÍORM——ÓÃVBºÍC#±àдµÄ¶¯Ì¬ÀàÐÍORM

      ½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔ­Òò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ