VBϽDZêÎÊÌ⣬Çë¸ßÊÖ°ï°ïÎÒ£¬Ð»Ð»Äú - VB / »ù´¡Àà
ÎÒ֮ǰÎʹý£¬ÔõÑù²ÅÄܸã³öÀ´Ï½DZ꣬ÓÐÈ˸æËßÎÒÓø»Îı¾¿ò£¬È»ºó¸øÎÒÕâ¸öÀý×Ó
VB code:
Private Sub Command1_Click()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 20
RichTextBox1.Text = "X3Y4"
OffsetRichText RichTextBox1, 3, 1, -6
End Sub
Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer, offset As Integer)
box.SelStart = start
box.SelLength = length
box.SelFontSize = box.Font.Size - Abs(offset)
box.SelCharOffset = ScaleY(offset, vbPoints, vbTwips)
box.SelStart = 0
box.SelLength = 0
End Sub
ÕâЩ¶¼ÊÇʲôÒâ˼£¬°ïÎÒ½âÊÍһϰɡ£ÎÒÈç¹ûÐèÒªX2Y3£¨2ºÍ3ÊÇϽDZ꣩Ӧ¸ÃÔõô¸ÄÄØ£¿Ð»Ð»Äú
ллÄúµÄ°ïÖú£¬ÎÒ°øÍí»ØÀ´¿´
ÀÏʦ½ÌÎÒÒ»¸ö·½·¨£¬ÊÇÓÃOLE£¬ºÜºÃÓÃ
µ«ÊÇÎÒ»¹ÊÇÏëÃ÷°×ÉÏÃæÄǶÎÓïÑÔµ½µ×ÊÇʲôÒâ˼£¬Ï£Íû¸ßÊÖÖ¸½Ì£¬Ð»Ð»
{{--
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......