ÓÃ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
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ËÄÜ°ïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......