Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


ûÓÐÇø±ð¡£

Ò»°ã½¨ÒéÿÐдúÂ볤¶È²»Òª³¬¹ýÆÁÄ»¿í¶È£¬·½±ãÔĶÁ¡£


¶ÔÆë ºÃ¿´

àÅ,¾ÍÊÇ»»ÐеÄ×÷ÓÃ,,ÕâÑù½ö½öΪÁË·½±ã,ºÃ¿´¶øÒÑ....³ÌÐòÔ±±à³Ì±ê×¼¹þ...


Ïà¹ØÎÊ´ð£º

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......

vbÒì²½ÎÊÌâ - VB / »ù´¡Àà

ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ