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£¬ºÜºÃÓÃ
µ«ÊÇÎÒ»¹ÊÇÏëÃ÷°×ÉÏÃæÄǶÎÓïÑÔµ½µ×ÊÇʲôÒâ˼£¬Ï£Íû¸ßÊÖÖ¸½Ì£¬Ð»Ð»
{{--
Ïà¹ØÎÊ´ð£º
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......