Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Öе÷Óö¯Ì¬Á¬½Ó¿â
 
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8  ÏÂÒ»Ò³
¡¡¡¡×÷ΪһÖÖ¼òµ¥Ò×ÓõÄWindows¿ª·¢»·¾³£¬Visual Basic´ÓÒ»ÍÆ³ö¾ÍÊܵ½Á˹ã´ó±à³ÌÈËÔ±µÄ»¶Ó­¡£Ëüʹ ³ÌÐòÔ±²»±ØÔÙÖ±½ÓÃæ¶Ô·×·±¸´ÔÓµÄWindowsÏûÏ¢£¬¶ø¿ÉÒÔ½«¾«Á¦Ö÷Òª¼¯ÖÐÔÚ³ÌÐò¹¦ÄܵÄʵÏÖÉÏ£¬´ó´óÌá¸ßÁ˱ ......

vb µ÷ÓÃdelphiдµÄdll

delphiÖеÄDLLÖеÄÉùÃ÷Ô­ÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
  SysUtils,
  Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
  jj := x * y;
  abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......

ÔÚVB2008 ËٳɰæÖÐʹÓòÎÊý»¯SQL²éѯÓï¾äÎÞЧ

  ×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
  °üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
            Dim cmSl As N ......

VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ