Sunday, September 26, 2010

Produced with the VB toolbox floating upper normal place of residence


Through visualization icon float kit can save users the trouble of clicking the main menu. When the mouse is located when its icon in the bottom of the mouse will automatically "fall out" a small label, indicating its function. And the upper normal place of residence will not be covered by the open file. And can change the shape and position, occupied by as much as possible to reduce desktop space.

Can our own applications using this advanced method? Here to introduce a simple to use VB to implement method. Main programming ideas: Reference Windows APL function, to achieve the top form of usual residence; establish control array, through the control of the MouseMove event, triggering a pop-up notes and disappeared.

A floating toolbox visualization and

1. Form1 put control SSRIBBON button (because it itself has three states: pressed, bounce, banned, most of the icon buttons are the type of button). To place the text boxes Text1 (can also use the Label control, but the effect will be different, will be mentioned later), then place a command button Command1. The control properties shown in Table 1 (the table only one example, the other as long as you can modify the corresponding attributes).

2. Click GP3D1, press ALT + Del cut, and then press ALT + Insert copy number, form a control array GP3D1 (0), GP3D1 (2), GP3D1 (3) ... ..., Another example is established by Text1 (0), Text1 (1) , Text1 (3) ... ....

3. Adjustment button and text box location.

During this period, each a work is necessary, such as text box Visible value False, in order to ensure that the program starts, do not display text box, and the Enable value of False is to run the process, the text box can not enter text. If you use the label (Label) instead of text boxes, icon buttons can not be arranged vertically, only horizontally. Because the button below will cover Label, but use the Label text box than the province of memory.

In order to achieve the effect of the upper normal place of residence, must call the Windows API function, in fact, a lot of VB methods cited in the Windows API. Here we use SetWindowsPos process, this process is defined in User.exe, it is important Windows system, the dynamic link library. Reference in the VB API function must be registered in the general declarations section of a statement. Statement API function is often troublesome and error-prone, such as:

Declare Sub SetWindowPos Lib "User" (ByVal hwnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal
cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)

If all of the API function declarations are so many inputs, low efficiency. Fortunately, all versions of VB provides a Windows API Help program, open it, search SetWindowPos, found one, click on hypertext with an explanation, you can copy.

Second, create a code in the general declarations section enter the following code and declare some constants and global variables:

Declare Sub setwindowpos Lib "User" (ByVal hwnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer,
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)

Const SWP_NOSIZE = 1

Const SWP_nomove = 2

Const flags = SWP_NOSIZE Or SWP_nomove

Const hwnd_topmost = -1

Const hwnd_notopmost = -2

Dim I As Integer

Dim B As Integer

MouseMove event for the GP3D1 button to add the following code, where only the realization of the mouse device in its pop-up when the comment, not when its faded features, readers can add a timer control and some code, you can easily achieve the mouse After a moment in its comments on the effect of pop-up device, so there is no mouse "pass" button, note the results of the device appears.

Sub GP3D1_MouseMove (index As Integer, Button As Integer, Shift

As Integer, X As Single, Y As Single)

I = index 'record in which the current mouse button

text1 (I). Visible = True "to the pop-up

If B <> I Then 'of the other buttons omitted

text1 (B). Visible = False

End If

B = I 'Please have a good understanding the role of the variable B

End Sub

Command1 button's Click event to add the following code:

Sub Command1_Click ()

do While DoEvents () 'use DoEvents () to achieve free circulation under the multi-task monitoring

setwindowpos hwnd, hwnd_topmost, 0, 0, 0, 0, flags' to achieve the top place of usual residence

loop

End Sub

MouseMove event for the Command1 button to add the following code:

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X

As Single, Y As Single)

text1 (I). Visible = False 'mouse leave the button area, located on the command button on the device when the omitted Notes

End Sub

The MouseMove event to Form1 add the following code:

Sub Form_MouseMove (Button As Integer, Shift As Integer, X

As Single, Y As Single)

text1 (I). Visible = False 'mouse leave the button area, enter the device form, omitted comment

End Sub







Recommended links:



YouTube to WMV



Picked Inventory And BARCODING



Paladin examination and topics for 4 years (1)



Best Calculators And Converters



Huawei Harbour end of the "son" are killing a man and shake hands with Li Ren Zhengfei



News about Terminal And Telnet Clients



send GRAPHICS 3



QT to WMV



SharePoint 2010 Early Glance: Online Editor greatly Improved



Screen Capture Brief



Procter & Gamble Senior Students Practical Experience



Whirlpool eventually favored by the United States and Thailand was designated as the optimum board b



The insider denied that Lee was a man left and the black about Baidu



ACDSee make the World Cup with a SLIDE



DV to AVI



Tuesday, September 14, 2010

SP has a new tactics to steal money through Guangdong Province, Hong Kong Monetary Authority to warn



銆??1鏈?8鏃ワ紝骞夸笢鐪侀?淇$鐞嗗眬鍏竷浜嗘埅鑷?007骞村害閫氫俊鏈嶅姟鎶曡瘔鍙楃悊鎯呭喌锛屽叾涓敱12300鏈嶅姟涓績(骞夸笢鐪佺數淇′紒涓氭湇鍔¤川閲忕洃鐫d腑蹇?鍙楃悊鐨勭敤鎴风敵璇?022浠讹紝姣斾笂骞翠笅闄嶄簡27%锛岃?璧勮垂浜夎绫绘姇璇夋暟閲忛珮杈?26浠讹紝鍗犳?鏁扮殑61%銆?In the value-added business, not specifically under this tariff SMS spamming, business name does not match the content and the phenomenon is still hot cause customer complaints.

Data show that in 2007 12 300 service centers in Guangdong Province handled a total of 2564 people communicate user consultation over the previous year's 3,699 people down three percent over the same period the user complaints received up to 1022, the 1378 over the previous year fell 27%. Which charges the most controversial type of complaints, over 626, accounting for 61% of the total, are still the main focus is the user complaints.

Guangdong Communications Administration analysis of tariff categories have the following types of disputes: As enterprise systems or human error because the business failed to take effect, resulting in additional costs; pre-paid subscribers free calls using the local packages, have been withheld on rent, but the card can not receive calls due to insufficient balance; in the absence of use or custom business is to be charged.

Notice also showed that the introduction of service policy after the second confirmation, SP overall violations decreased, but there are some new trick mode, mainly as, in the absence of charges, this or this is not a clear case of recklessly promotional text messages induction of customized information services business; Another example is the business name does not match with the content; In addition, there is induction of SP cross to send the case information, such as the use of PHS mobile phone users send text messages induced consumption.

Guangdong Province, through the MA to remind users that they were somehow found to subscribe to some of the SP's service, can be related infrastructure operators, 12315 or 12300 complaints, while also proposed telecommunications users to keep it good information or violation of the publicity other relevant information to the complaint as a basis for complaint.







相关链接:



C # and object-oriented programming Language [1]



CEO Online: Yan Huang star CEO Chang on August 15 guest Sina



Hd video converter



swf format



SCREEN Savers Report



e-cology in the Pan Micro SERIES 45



OSPF Posts: Frame Relay OSPF-radio host



System MAINTENANCE Expert



Fastest video converter



Orient Securities Executive Assistant Shu Wang: grab the share of off-site transactions



Expert Gallery And Cataloging Tools



Best HOBBY



Mov to mpeg converter free



Draw OR write to update the screen after



Zha Yufeng: build "long flight" back Pillar