Automatically change the control once and for all so that the size of VB

- When the form is resized, how to dynamically change the size of the control of many VB programmers headaches. Some people set Resizable form the size of the control but do not change; some people are under the control of absolute position and window size with addition and subtraction approach to re-position the control and change the size, this approach is relatively more complicated and can not be reused; Of course, some people are limited not to change the window altogether. Is there a simple way? The answer is yes, here are a permanent solution, source code is as follows:
Option Explicit
Private FormOldWidth As Long
`Save the form of the original width
Private FormOldHeight As Long
`Save the form of the original height

`In the call to call this function before ResizeForm
Public Sub ResizeInit (FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & "" & Obj.Top & ""
& Obj.Width & "" & Obj.Height & ""
Next Obj
On Error GoTo 0
End Sub

`Change in proportion to the size of each component within the form,
Call before the call ReSizeForm ReSizeInit function
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
`Save the form width scaling
ScaleY = FormName.ScaleHeight / FormOldHeight
Save the form `a high degree of scaling
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For I = 0 To 4
`Read the original location and size of the control

TempPos = InStr (StartPos,
Obj.Tag, "", vbTextCompare)
If TempPos> 0 Then
Pos (I) = Mid (Obj.Tag,
StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos (I) = 0
End If
`According to the original location and form control to change the size of the
The proportion of the controls reposition and resize
Obj.Move Pos (0) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news : 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleX, Pos (1)
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar. gz xml2dict-read-only ScaleY, Pos (2) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleX, Pos (3) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news : 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleY
Next I
Next Obj
On Error GoTo 0
End Sub

Private Sub Form_Load ()
Call ResizeInit (Me) `the procedure must be added into
End Sub

Private Sub Form_Resize ()
Call ResizeForm (Me) `to ensure that change control and changes the form
End Sub

---- In this case are given two functions: ResizeInit and ResizeForm, before calling ResizeForm must call ResizeInit. You can by copying the program code in the form, and then adding any controls on the form where you can test - when the form is resized, how to dynamically change the size of the control of many VB programmers headaches. Some people set Resizable form the size of the control but do not change; some people are under the control of absolute position and window size with addition and subtraction approach to re-position the control and change the size, this approach is relatively more complicated and can not be reused; Of course, some people are limited not to change the window altogether. Is there a simple way? The answer is yes, here are a permanent solution, source code is as follows:
Option Explicit
Private FormOldWidth As Long
`Save the form of the original width
Private FormOldHeight As Long
`Save the form of the original height

`In the call to call this function before ResizeForm
Public Sub ResizeInit (FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & "" & Obj.Top & ""
& Obj.Width & "" & Obj.Height & ""
Next Obj
On Error GoTo 0
End Sub

`Change in proportion to the size of each component within the form,
Call before the call ReSizeForm ReSizeInit function
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
`Save the form width scaling
ScaleY = FormName.ScaleHeight / FormOldHeight
Save the form `a high degree of scaling
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For I = 0 To 4
`Read the original location and size of the control

TempPos = InStr (StartPos,
Obj.Tag, "", vbTextCompare)
If TempPos> 0 Then
Pos (I) = Mid (Obj.Tag,
StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos (I) = 0
End If
`According to the original location and form control to change the size of the
The ratio of the re-orientation and change the size of the control
Obj.Move Pos (0) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news : 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleX, Pos (1)
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar. gz xml2dict-read-only ScaleY, Pos (2) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news: 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleX, Pos (3) backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news: 10 news: 11 news: 12 news: 13 news: 14 news: 15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 news : 7 news: 8 news: 9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only ScaleY
Next I
Next Obj
On Error GoTo 0
End Sub

Private Sub Form_Load ()
Call ResizeInit (Me) `the procedure must be added into
End Sub

Private Sub Form_Resize ()
Call ResizeForm (Me) `to ensure that change control and changes the form
End Sub

---- In this case are given two functions: ResizeInit and ResizeForm, before calling ResizeForm must call ResizeInit. You can by copying the program code in the form, and then adding any controls on the form where you can test






Recommended links:



Hot Science Education



how to install INSTALL windows media player 11



Operation and further investment to maintain essential



Photoshop Production - wire and spark



DivX to VOB



Quality Control in the "Statistics" several concepts



Simple table space to talk about Visual Basic.NET transmission



JSP2.0 simple symbol library extension _SimpleTag



With CloneCD CD-RW disc to save the damaged



Followed By A Variety Of Patches Manually Clear The New "Annie"



TS To WMV



FLV to 3GP



Review Basic Or VB Or VB DotNet



Easy to use Terminal And Telnet Clients

Blog you need to fundamentalism

Only when the majority (with certain conditions) of the roots to become blog of the user after the grass-roots blog really has meaning. And this is precisely the "blog fundamentalist" can not do.

Acosta blog "must click" attracted critics questioned. Major forum rumor, Acosta Sina blog channel organization is actually a lot of resources packaged up "grassroots blog idol," there are many sticklers who looks on the network the end, tried to solve the mystery of identity Acosta. At the same time, an on "grass-roots blog" discussion begins. Some critics said Sina blog of capital involved in the activities, thus "undermining the blog of the multi-functional."

One criticism of the footing is becoming celebrity blog news source, but also actively use their own web information resources, flow of resources "over-intervention (operation) news events," departed from the news of the "neutral value." However, the first question is, I understand that the so-called "news of the neutral value", only the American view on the current news news requirements, not all the news of the operation scale. In fact, entertainment, and cultural content of the news itself is more or less built on the basis of a certain tendency, not to mention the "gossip" was. To see if we can cite the celebrity blog news, whether it is "Korean white struggle" or "Guo refused to apologize for" not out of cultural and entertainment areas, where the talk about "value neutrality" is not appropriate.

Moreover, by Sina does have its advantages though, create blog topic of the move, but we can not observe from the behavior of clear violation of journalistic ethics. In fact, their work is diametrically opposed to the remarks just rake out through news page, to expand its influence, and then further encouraged both sides to respond to each other, serve to stir up topics, organized to discuss results. This operation means that in the current domestic level media critics have been widely used. Why was loaded onto a network, you have the "excessive intervention" the sins of it?

鎵硅瘎鐨勫彟涓?珛瓒崇偣鏄紝璧勬湰瀵瑰崥瀹㈢殑渚靛叆鍋忕浜嗗崥瀹㈢殑鈥滃師鐢熺簿绁炩?锛屾湁杩濆崥瀹㈢簿绁炪?

"Grassroots" is often used to modify the expression of such a blog. But the "grassroots" and what is it? Does it mean that using such a speech channel of people, only with the "grassroots" status, or those who speak through the blog, in his blog on the automatic "grassroots" certification, and the need for strict observance of the grassroots consciously regulate?

Clearly not the case. In fact, the blog of the so-called "grassroots" means that the lowest threshold of speech channel: no one, as long as the material conditions of his access to the Internet, you can speak through their own blog --- not type it anyway. However, the "low threshold" does not mean the "high status" who were blocked. Celebrities and capital access, without prejudice to the grass-roots blog, but rather a blog "multiple functions" of the expression. Meanwhile, the general rules for information dissemination, celebrities and capital in the blog world, occupies a very important seat is taken for granted.

Therefore, we need not on the celebrity, the capital's achievements in the blog world, heart guard, if they can not get a definite advantage here, the status of Fandao strange. We even should the "capital interest blog," this phenomenon is pleased because, as you know, has a strong pursuit of profit of capital, it is always in the most profitable parts of the release. So this blog is just that a vibrant, flourishing things.

Nor do we have issued a "grass-roots capital destruction," this panic.

Since we believe that the blog is a vibrant, full of grass-roots expression of channels, that it changed how it will be capital --- to do this is just the power of administrative and legal.

Prior to this, also because of the relationship between Sina, the rise of the network has been a while blog is a "elite property" or "grass-roots property" argument. In this discussion, some of the earliest in China to promote the concept of the technical staff blog made a lot of unique perspectives, one for the "super link" is the most important feature of the blog, and even cited the example of U.S. blog, as evidence. Obviously, this is only "blog fundamentalist" wishful only. Now, another romantic out of the network, the blog should be "self-conscious of the imperative of equality, free from external forces about the 'electronic writing' behavior." The problem is, if not for page views, blog what they want to use this speech channel? Who could not with any power to require the blog "just to click on the writing" mean?

鍏跺疄锛岄棬鎴风綉绔欓?杩囧崥瀹㈣繘琛岀殑绉嶇鎿嶄綔鏄帹骞垮崥瀹㈢殑鏈?湁鏁堟墜娈点? Only when the majority (with certain conditions) of the roots to become blog of the user after the grass-roots blog really has meaning.鑰岃繖涓?偣锛屾伆鎭版槸鈥滃崥瀹㈠師鏁欐棬涓讳箟鈥濇棤娉曞仛鍒扮殑銆?br />





相关链接:



LG Fourth Quarter Net Profit Surged 91 Percent Net Profit 319 Million U.S. Dollars



Using Visual Basic's Timer Control



My favorite Development



Components And Libraries Specialist



Manufacturing integration trend manufacturing and EMS has APPROACHING



Golden Abacus eAM State Assets Bureau Haizhu District, Guangzhou presence



Flame Motion Animation In The Law



AVI To DivX



ram files to epson



Photoshop Production - Wire And Spark



News ABOUT Computer Education



MOD to MPG



Mathematics Education brief



M2TS Converter



Ruiz: Barcelona Will Help AMD Out Of The Doldrums

GIS work?

How It Works GIS GIS is used to store the world information that can be linked through geographical collection of all the theme layer. This simple but very powerful and versatile concept, for solving many real world of Wentijuyou invaluable in Zuoyong, these issues include: Genzongzhuanshu tool which records detailed information on programs, simulate global atmospheric Xunhuan 绛?



Geographic Reference System

Geographic information contains clear geographic reference system, such as longitude and latitude coordinates, or a national grid coordinates. Can also include indirect geographic reference system, such as address, zip code, census area names, forest location identification, road names and so on. Called geo-coding system for the automatic processing system from the indirect reference, such as the address description into a specific geographic reference system, such as multiple positioning. The geographic reference system allows you to locate a number of characteristics, such as business activity, forest location, you can also locate a number of events, such as earthquakes, for to do surface analysis.
Vector and raster mode
Geographic information systems work in two different basic geographic pattern - vector mode and grid mode. In the vector model, on the point, line and polygon information is encoded and to x, y coordinate of form. Position of a point feature, such as a drill, can be a single x, y coordinates described. Line features, such as roads and rivers, can be stored in a series of point coordinates. Polygon features, such as sales area or gathering area rivers, can be stored in a closed loop of coordinates. Vector model is very beneficial to describe the characteristics of a number of discrete, but continuous changes in the characteristics, such as soil type, or rushed to hospital costs, etc., will not be useful. Grid pattern development as a continuous feature of the model. Raster image contains a grid cell, a bit like a scanned map or photo. Either vector or raster mode model, used to store geographic data, there are advantages and disadvantages. Modern GIS can handle both modes.

Information from the Internet










相关链接:



Find out THE psychological make promotions



repairing outlook Express folders



Fast switch input 3 ax



News about Tools And EDITORS



[Other] Project2000 thematic knowledge (3)



MP4 to WMP



C mixed programming with scripting



Struts + Spring + Hibernate Quick Start instance



Easy To Use Converters And Optimizers



ASF To MPG



To expose the fraud: WinRAR to compress 775MB 13.4MB



Hart governance "disease" Hewlett-Packard



MKV to WMV