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
ûÓÐÇø±ð¡£
Ò»°ã½¨ÒéÿÐдúÂ볤¶È²»Òª³¬¹ýÆÁÄ»¿í¶È£¬·½±ãÔĶÁ¡£
¶ÔÆë ºÃ¿´
àÅ,¾ÍÊÇ»»ÐеÄ×÷ÓÃ,,ÕâÑù½ö½öΪÁË·½±ã,ºÃ¿´¶øÒÑ....³ÌÐòÔ±±à³Ì±ê×¼¹þ...
Ïà¹ØÎÊ´ð£º
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......