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

VBÖеIJ»Ã÷´úÂë - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)

ÕâÊÇVBÖеÄÁ½¶Î´úÂë.¿´²»Ã÷°×.Çë¸ßÈËÖ¸½Ì

Private Declare Function setWindowPos Lib "user 32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long




Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

ÕâÊÇÒýÓÃAPIÓõ͍Òå. Äã¿ÉÒÔÔÚVBµÄAPIä¯ÀÀÆ÷ÀïÃæÕÒµ½¸÷ÖÖAPIµÄ¶¨Òå
API¾ÍÊÇϵͳԤÉèºÃµÄһЩ¹¦Äܺ¯Êý,Äã±à³ÌµÄʱºò¿ÉÒÔÀûÓÃAPIÀ´ÊµÏÖ¹âÓÃVBÎÞ·¨½â¾öµÄÎÊÌâ

Windows API º¯Êý£º

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



¡¾²Ù×÷ϵͳ¡¿
Win9X:Yes
WinNT:Yes
¡¾ËµÃ÷¡¿
  Õâ¸öº¯ÊýÄÜΪ´°¿ÚÖ¸¶¨Ò»¸öÐÂλÖúÍ״̬¡£ËüÒ²¿É¸Ä±ä´°¿ÚÔÚÄÚ²¿´°¿ÚÁбíÖеÄλÖ᣸ú¯ÊýÓëDeferWindowPosº¯ÊýÏàËÆ£¬Ö»ÊÇËüµÄ×÷ÓÃÊÇÁ¢¼´±íÏÖ³öÀ´µÄ£¨ÔÚvbÀïʹÓãºÕë¶Ôvb´°Ì壬ÈçËüÃÇÔÚwin32ÏÂÆÁ±Î»ò×îС»¯£¬ÔòÐèÖØÉè×î¶¥²¿×´Ì¬¡£ÈçÓбØÒª£¬ÇëÓÃÒ»¸ö×ÓÀà´¦ÀíÄ£¿éÀ´ÖØÉè×î¶¥²¿×´Ì¬ 
¡¾·µ»ØÖµ¡¿
  Long£¬·ÇÁã±íʾ³É¹¦£¬Áã±íʾʧ°Ü¡£»áÉèÖÃGetLastError 
¡¾ÆäËü¡¿
  ´°¿Ú³ÉΪ×î¶¥¼¶´°¿Úºó£¬ËüÏÂÊôµÄËùÓд°¿ÚÒ²»á½øÈë×î¶¥¼¶¡£Ò»µ©½«ÆäÉèΪ·Ç×î¶¥¼¶£¬ÔòËüµÄËùÓÐÏÂÊôºÍÎïÖ÷´°¿ÚÒ²»áתΪ·Ç×î¶¥¼¶¡£ZÐòÁÐÓô¹Ö±ÓÚÆÁÄ»µÄÒ»¸ù¼ÙÏëZÖáÁ¿»¯ÕâÖÖ´Ó¶¥²¿µ½µ×²¿ÅÅÁÐ


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ