VB shape¿Ø¼þ - VB / ·Ç¼¼ÊõÀà
´ó¼ÒºÃ!! ÎÒÏëÎʸö»ù´¡ÎÊÌâ
ÔÚshape¿Ø¼þ±àд´úÂëʱ
Private Sub UserControl_Resize()
'±ä»»shape¿Ø¼þµÄ´óС
'ÒÔ±ãÌî³äshapeLabelµÄ¿É¼û±íÃæ.
shpBack.Move 0, 0, ScaleWidth, ScaleHeight
'ʹLable1¿Ø¼þ´¹Ö±¾ÓÖÐ,²¢Ê¹ËüµÄ¿í¶ÈÓëShapeLabelÒ»ÖÂ.
lblCaption.Move 0, (ScaleHeight _
- lblCaption.Height) / 2, ScaleWidth
lblCaption.Move 0, (ScaleHeight - lblCaption.Height) / 2, ScaleWidth
Õâ¾äÓëÉÏÃæ´úÂëÖеÄ×îºóÒ»¾äÓÐÓÐÉ¶Çø±ð°¡
ÎÒÏëÎʵÄÊÇ ÕâÑùµÄ´úÂëÊéд·½Ê½ ÊDz»ÊÇ»»ÐÐʹÓÃµÄ ¼ÓÁ˸ö _ Ïß »¹ÊÇÕâ¸ö _ ÔÚÓï¾äÖÐÓÐ×Åʲô×÷Óð¡
Íû´óÏÀ²»Äþ´Í ½Ì
×÷ÓþÍÊÇ»»ÐÐ,¾ÍÊÇlblCaption.Move 0, (ScaleHeight - lblCaption.Height) / 2, ScaleWidth
ûÓÐÇø±ð¡£
Ò»°ã½¨ÒéÿÐдúÂ볤¶È²»Òª³¬¹ýÆÁÄ»¿í¶È£¬·½±ãÔĶÁ¡£
¶ÔÆë ºÃ¿´
àÅ,¾ÍÊÇ»»ÐеÄ×÷ÓÃ,,ÕâÑù½ö½öΪÁË·½±ã,ºÃ¿´¶øÒÑ....³ÌÐòÔ±±à³Ì±ê×¼¹þ...
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......