Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐʵÏÖµØͼ²Ù×÷µÄ·½·¨

1.       ÔÚVBµÄFormÉè¼Æʱ£¬¼ÓÈëÒ»¸öpicturebox¿Ø¼þ£¬Õâ¸ö¿Ø¼þ×÷ΪOLEÈÝÆ÷£¬MapInfoÖеĵØͼ½«ÔڸÿؼþÉÏÏÔʾ¡£
2.       Ö´ÐÐVBµÄº¯ÊýCreateobject(“MapInfo.Application”),Æô¶¯MapInfo¡£ÕâʱMapInfoÔÚºǫ́Æô¶¯£¬¶ÔÓû§À´Ëµ²»¿É¼û£¬²»»áµ¯³ösp ......

¹ØÓÚvb±àдÃâɱÀ¦°óÆ÷´úÂë

Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Rea ......

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object ......

VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ