vb制作工具箱代码（vb制作简易计算器代码）

今天给各位分享vb制作工具箱代码的知识，其中也会对vb制作简易计算器代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB制作便携工具箱
• 2、VB编写的工具箱（要像QQ那样有分成 如 好友 一点 就可以张开 ）的教程
• 3、如何用vb制作个人QQ式工具箱

VB制作便携工具箱

路径问题就选择相对路径好了

比如你的一整套软件（主程序和其它绿色软件或者文件夹）都放在“MyTools”这个文件夹里，到时调用工具时，就先打开这个MyTools文件夹里你写的主程序，然后调用即可

On Error Resume Next

Shell App.Path  "\Test.exe", vbNormalFocus '直接调用同级的Test.exe

On Error Resume Next

Shell App.Path  "\Crack\Test.exe", vbNormalFocus '调用Crack文件夹里的Test.exe

希望可以帮到你

VB编写的工具箱（要像QQ那样有分成 如 好友 一点 就可以张开 ）的教程

简单的例子

'一个PictureBox名为Picture1

'Picture1中放一个CommandButton控件数组（本例为16个）

'1200为CommandButton宽度，300为高度，请自行修改为需要的尺寸

Private Sub Form_Load()

Me.WindowState = 2

With Picture1

.Width = 1200 + 60

.Height = 7900

End With

Dim i As Integer

For i = Command1.Count - 1 To 0 Step -1

With Command1(i)

.Width = 1200

.Height = 300

.Top = Picture1.ScaleHeight - 300 * (Command1.Count - i)

.Left = 0

.Caption = "QBColor " i

End With

Next i

Command1(0).Top = 0

End Sub

'注：如果你在设计时就把各控件的位置及尺寸一一设定好，

'那么上面的代码就可以全部省略了

Private Sub Command1_Click(Index As Integer)

Picture1.SetFocus '把焦点给Picture1是为了不让CommandButton出现难看的黑框

Dim i As Integer

For i = 1 To Index

Command1(i).Top = 300 * i

Next i

For i = Command1.Count - 1 To Index + 1 Step -1

Command1(i).Top = Picture1.ScaleHeight - 300 * (Command1.Count - i)

Next i

Me.BackColor = QBColor(Index)

End Sub

如何用vb制作个人QQ式工具箱

'你要的是鼠标移动到窗体是显现出来,移开时缩到旁边吧?

'如果是,你可以利用shell当工具箱按钮的代码

'新建一个TIME的控件

------------------------------------------------------------------

Option Explicit

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, _

ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _

ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _

ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _

ByVal dwRop As Long) As Long

Private Const SRCCOPY = HCC0020

Private Const SWP_NOMOVE = H2

Private Const HWND_TOPMOST = -1

Private Pointcre As POINTAPI

Private Sub zoom()

Dim x As Long

Dim y As Long

Dim z As Long

z = GetCursorPos(Pointcre)

x = Pointcre.x - 20

y = Pointcre.y - 20

z = StretchBlt(Me.hdc, 0, 0, 300, 200, GetDC(0), x, y, 90, 60, SRCCOPY)

End Sub

Private Sub Form_Load()

Timer1.Interval = 40

End Sub

Private Sub Timer1_Timer()

Call zoom

End Sub

'------------------------------------------------------------------

vb制作工具箱代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb制作简易计算器代码、vb制作工具箱代码的信息别忘了在本站进行查找喔。