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

ÓÃvb½¨Á¢×ÔÒѵÄUnicode¿Ø¼þ - VB / »ù´¡Àà

vb×Ô´øµÄ¿Ø¼þÊÇAnsi¿Ø¼þ¡£

ÓÃ×Ô¶¨Òå¿Ø¼þCreateWindowExW£¬È»ºóÓÃSetWindowLongW ¾Í¿ÉÒÔÁË¡£

֮ǰ¿´msdn »òÆäËûÊéÉÏ˵ÓÃCreateWindowExW¾ÍÐÐÁË£¬¿É×ÔÒÑÒ»Ö±²»³É¹¦£¬²»ÏþµÃÎÊÌâ³öÔÚÄÇÀï¡£
½ñÌìͻȻÏëµ½°Ñ ÉèÖÃ×ÓÀ໯ ¹ý³Ì ¼´SetWindowLong ¸Ä³É ÓÃSetWindowLongW ,³É¹¦ÁË

ûÏëµ½ÉèÖÃ×ÓÀ໯´°¿ÚÒ²ÒªÓðæ SetWindowLongW ²»È»´´½¨µÄ¿Ø¼þ»áÓÖ±ä³Éasnsi°æ£¡£¡

´ó¼ÒÓÐûÓÐÕâ·½ÃæµÄ½»Á÷һϡ£
ɳ·¢×ÔÒÑÕ¼
ÕâÑù´¦Àíwm_charÏûÏ¢¼òµ¥¶àÁË^_^


·´ÕýÈ«²¿Ê¹ÓÃWϵÁÐAPI¾ÍÐÐÁË¡£¡£¡£

½ñÌì°ÑvbAccelerator µÄ×ÓÀ໯Dll¸ø¸Ä³ÉÁËÖ§³ÖUnicode, ²¢ÓøĵÄ×ÓÀ໯dll°ÑËüµÄComboBoxExºÍOwnerDrawComboList¿Ø¼þÒ²¸Ä³ÉÁËÖ§³Öºº×Ö×Ô¶¯Íê³É£¨Ô­°æÖ»³ÖÓ¢ÎĵÄ×Ô¶¯Íê³É£©¡£²¢ÇÒ°ÑOwnerDrawComboList¸Ä³ÉÁËÏñAccess ÖеĶàÁÐ×éºÏ¿ò£¬ÕæÊÇˬ¡£

ÎÒÏÖÔÚÊǸĵÄËüµÄ·Ç»ã±àÄǸö×ÓÀ໯dll,ÄÇλÄÜ°ÑÄǸö»ã±àµÄ×ÓÀ໯dll¸ø¸Äһϣ¬¾Í¸üˬÁË¡£

ºÃÏñÎÊÌâµÄ¹Ø¼üµãÔÚGSubclass.cls µÄ³õʼ»¯¹ý³Ì¡£°ÑËüÀ­³öÀ´£¬È»ºó¸ù¾Ý×ÔÒÑÒªÖ»À໯µÄ´°¿Ú IsWindowUnicode À´³õʼ»¯½øSetWindowLongA»¹ÊÇSetWindowLongWÒÔ¼°CallWindowProcA»¹ÊÇCallWindowProcW µÈ¡£ÎÒÏÈÊÔÒ»ÏÂÔÙ˵¡£

²»¸ÒÒ»¸ö¹¤³ÌÖÐͬʱÓöàÖÖ×ÓÀ໯¿â£¬²ÅÊÔ¹ý³öÎÊÌâ

²»¹ýÎÒÒѾ­¸ÄºÃÁË¡£Ã»ÓÐÈκÎÎÊÌâ¡£¹Ø¼üÊÇ×ÓÀ໯ÊÇÒªÓÃIsWindowUnicode ÅжÏ×ÓÀ໯µÄ´°¿ÚÊÇAsin»¹ÊÇunicode.
ÈçÏ£º
Private Sub Class_Initialize()
  pInit nAddrSubclassA, 1
  pInit nAddrSubclassW, 2
End Sub

'iAorW 1:A 2:W
Private Sub pInit(nAddrSubclass As Long, iAorW As Long)
  'This is the subclasser code. The patches are wer


Ïà¹ØÎÊ´ð£º

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔسö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄÜ°ïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......

VBµ÷ÓÃEXCEL»æͼ£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ