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

vb ÖпؼþËæ´°ÌåµÄ¸Ä±ä³É±ÈÀý¸Ä±ä´óС


Õ⼸ÌìÔÚÉè¼ÆÔĶÁÆäÖÐÓõ½Á˺ܶàºÃµÄ¼¼Êõ,,ÈÃÎÒÃÇÔÚÉè¼ÆÈí¼þµÄʱºò·½±ã,,¿ì½Ý,,ÃÀ¹Û.Ò²ÊÇÎÒÃǾ­³£Óõ½µÄһЩ¿Ø¼þ.
ËùÒÔÔÚÕâÀïÎÒ»á½Ðø°ÑËû·ÖÏí³öÀ´.
ÕâÀïÊÇÔÚ´°ÌåÖиı䴰ÌåµÄ´óС.´°ÌåÄÚ²¿ËùÒԿؼþµÄ´óСͬ±ÈÀýµÄ¸Ä±äµÄÒ»¸ö³ÌÐò
ÕâЩÊÇÔÚ±ê׼ģ¿éÖÐ
'¶¨Òå FormOldWidth, FormOldHeight Ϊȫ¾Ö±äÁ¿£¬ÕâÑùÆäËûÄ£¿é²ÅÄܵ÷ÓÃËü
Global FormOldWidth, FormOldHeight
'ÔÚµ÷ÓÃResizeFormÇ°Ïȵ÷Óñ¾º¯Êý
Public Sub ResizeInit(FormName As Form)
'ControlÊÇÒ»¸ö¶ÔÏ󣬱íʾËùÓÐ Visual Basic ÄÚ²¿¿Ø¼þµÄÀàÃû¡£
'¿ÉÒÔ½«Ò»¸ö±äÁ¿±êΪ Control ¶ÔÏó£¬ÏóÒý°Ñ¿Ø¼þ·Åµ½´°ÌåÉϵÄÒ»ÑùÀ´ÒýÓÃËü¡£ÀýÈ磺
'Dim C As Control
'Set C = Command1
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
'EachÊÇÒ»¸ö¹Ø¼ü×Ö£¬×÷ÓÃÊÇÕë¶ÔÒ»¸öÊý×é»ò¼¯ºÏÖеÄÿ¸öÔªËØ£¬Öظ´Ö´ÐÐÒ»×éÓï¾ä¡£
'Óï·¨
'For Each element In Group
For Each Obj In FormName
'Tag·µ»Ø»òÉèÖÃÒ»¸ö±í´ïʽÓÃÀ´´æ´¢³ÌÐòÖÐÐèÒªµÄ¶îÍâÊý¾Ý¡£
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub
'°´±ÈÀý¸Ä±ä±íµ¥ÄÚ¸÷Ôª¼þµÄ´óС£¬
'ÔÚµ÷ÓÃReSizeFormÇ°Ïȵ÷ÓÃReSizeInitº¯Êý
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
'±£´æ´°Ìå¿í¶ÈËõ·Å±ÈÀý
ScaleX = FormName.ScaleWidth / FormOldWidth
'±£´æ´°Ìå¸ß¶ÈËõ·Å±ÈÀý
ScaleY = FormName.ScaleHeight / FormOldHeight
On Error Resume Next
For Each Obj In FormName
StartPos = 1
'¶ÁÈ¡¿Ø¼þµÄԭʼλÖÃÓë´óС
For i = 0 To 4
'InStrº¯Êý£¬·µ»Ø Variant (Long)£¬Ö¸¶¨Ò»×Ö·û´®ÔÚÁíÒ»×Ö·û´®ÖÐ×îÏȳöÏÖµÄλÖá£Óï·¨:InStr([start, ]string1, string2[, compare])
TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
'Midº¯Êý£¬·µ»ØVariant (String)£¬ÆäÖаüº¬×Ö·û´®ÖÐÖ¸¶¨ÊýÁ¿µÄ×Ö·û¡£Óï·¨£ºMid(string, start[, length])
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'¸ù¾Ý¿Ø¼þµÄԭʼλÖü°´°Ìå¸Ä±ä´óСµÄ±ÈÀý¶Ô¿Ø¼þÖØж¨Î»Óë


Ïà¹ØÎĵµ£º

ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)

¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......

VBʵÏÖ¼òµ¥µÄͼÐÎÇøÓòÑ¡Ôñ

³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öͼƬÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray (   )   As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......

VB 5·1µÚ¶þÌì

ÉÏÎçÏÈ°ÑÖ÷°åÊõÓï°¤¸ö²éÁËÒ»±é£¬Á˽âËüµÄËõдÓÉÀ´¡¢Î»Öú͹¦ÄÜ¡£
Ö÷°åÓ¢ÎÄËõдÏê½â£º
 http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
ÏÂÎç·µ¹¤£¬Õâ´Î¸øµÄ½ÌѵÊDzÒÍ´µÄ£¬ÎÒÃÇ×éÊÔÁË°ëÌ춼²»ÄܵãÁÁ£¬»»Ó²ÅÌ·&mi ......

ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.


ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾ­Ã»ÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
      ¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ