vb中最小化的怎么写，就是最简单的最小化想，像一般的应用程序的最小化，

WindowState 属性

返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态。

语法

objectWindowState [= value]

WindowState 属性的语法包含下面部分：

部分 描述

Object 对象表达式，其值是“应用于”列表中的一个对象。

Value 一个用来指定对象状态的整数，“设置值”中有详细描述。

设置值

value 的设置值为：

常数 值 描述

vbNormal 0 （缺省值）正常 。

VbMinimized 1 最小化（最小化为一个图标）

VbMaximized 2 最大化（扩大到最大尺寸）

说明

在窗体被显示之前，WindowState 属性常常被设置为正常 (0)，而不管其初始设置值。这反映在 Height、Left、ScaleHeight、ScaleWidth、Top、和 Width 属性设置值中。如果窗体在它已被显示后被隐藏，那么这些属性将反映以前的状态直到窗体被再次显示，而不管在此期间对 WindowState 属性所作的任何改变。

这个简单。但是你没有说这个整数的范围，可以是无穷大，也可以是1。因此以下代码以100范围内整数为例

dim a(11) as interger

for i=1 to 10

a(i)=int(rnd100)

next i

'得到最大值

max=a(1)

for i=2 to 10

if a(i)>a(1) then max=a(i)

next i

'求最小值

min=a(1)

for i=2 to 10

if a(i)<a(1) then min=a(i)

next i

print “最大值：",max

print “最小值：",min

当然另外可以用排序法，可把这个10个数进行大小排序，这里就不列了

以下是关键代码，其他的我就不打了

dim

i

as

Integer

dim

max

as

integer

dim

min

as

integer

dim

temp

as

integer

'定义变量，i为循环变量，max为最大数，min为最小数，temp为每一次生成数时使用的临时变量

temp=Int(90rnd()+10)

max=temp

min=temp

'生成第一个数，并且第一个数既是最大数又是最小数

for

i=2

to

10

step

1

temp=Int(90rnd()+10)

if

temp

>

max

then

max=temp

if

temp

<

min

then

min=temp

next

i

label1caption=max

label2caption=min

把上面的代码复制到一个button的click事件，在窗体上画两个label然后运行就可以了，label1显示最大数，label2显示最小数。

说明：由于并没有要求找出最大最小是第几个元素，所以不使用数组。

思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。

Dim x As Single, y As Single,z As Single

Dim t As Single

x = Val(InputBox("输入第1个数："))

y = Val(InputBox("输入第2个数："))

z = Val(InputBox("输入第3个数："))

If x < y Then

t = x

x = y

y = t

End If

If x < z Then

t = x

x = z

z = t

End If

If y < z Then

t = y

y = z

z = t

End If

Print "最大值：";x

Print "最小值：";z

日上龙脊10级2009-06-12vb系统托盘程序图标需要添加一个按钮command1 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function Shell_NotifyIcon Lib "shell32dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private nfIconData As NOTIFYICONDATA Option Explicit Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = &H2 Const NIF_MESSAGE = &H1 Const NIF_TIP = &H4 Const NIM_ADD = &H0 Const NIM_DELETE = &H2 Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const WM_LBUTTONDBLCLK = &H203 Const WM_RBUTTONDOWN = &H204 Const WM_RBUTTONUP = &H205 Const WM_RBUTTONDBLCLK = &H206 Const SW_RESTORE = 9 Const SW_HIDE = 0 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String MAX_TOOLTIP End Type Private Sub Command1_Click() nfIconDatahwnd = Mehwnd nfIconDatauID = MeIcon nfIconDatauFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP nfIconDatauCallbackMessage = WM_MOUSEMOVE nfIconDatahIcon = MeIconHandle nfIconDataszTip = "显示" & vbNullChar nfIconDatacbSize = Len(nfIconData) Call Shell_NotifyIcon(NIM_ADD, nfIconData) ShowWindow Mehwnd, SW_HIDE End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lMsg As Single lMsg = X / ScreenTwipsPerPixelX If lMsg = WM_RBUTTONUP Or lMsg = WM_LBUTTONUP Then Call Shell_NotifyIcon(NIM_DELETE, nfIconData) '退出图标 MeShow End If追问：晕你发的都是网上发过的，我在说一遍我只要可用的源文件，直接拿去测试，不是要你发的代码。我要源文件 源文件 源文件 源文件 源文件啊！

楼上差矣！！

最小化到系统托盘的难度不小，我不会，代码量要N多，但是只是最小化可以这样。

（先打开一个文件夹，控件动态生成，不用设计）

例程：

Private Const SW_MINIMIZE = 6

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dim WithEvents cmdBtn As CommandButton

Private Sub cmdBtn_Click()

Dim myHandle&

myHandle = FindWindow("CabinetWClass", vbNullString)

'获得资源管理器的句柄，第一个参数是窗体所属的类，第二个是窗体标题，vbNullString代表不知道，至少要写一个参数，另一个可以是vbNullString，两个都写最好

ShowWindow myHandle, SW_MINIMIZE

'最小化资源管理器窗体

End Sub

Private Sub Form_Load()

'动态生成控件

Set cmdBtn = MeControlsAdd("VBCommandButton", "cmdBtn")

With cmdBtn

Visible = True

Height = MeHeight / 2

Width = MeWidth / 2

Left = Width / 2

Top = Height / 2

Enabled = True

Caption = "最小化资源管理器"

End With

End Sub

API：

VB声明

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

说明

控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）

返回值

Long，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）

参数表

参数 类型及说明

hwnd Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令

nCmdShow Long，为窗口指定可视性方面的一个命令。请用下述任何一个常数

SW_HIDE 隐藏窗口，活动状态给令一个窗口

SW_MINIMIZE 最小化窗口，活动状态给令一个窗口

SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态

SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态

SW_SHOWMAXIMIZED 最大化窗口，并将其激活

SW_SHOWMINIMIZED 最小化窗口，并将其激活

SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口

SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口

SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口

SW_SHOWNORMAL 与SW_RESTORE相同

以上就是关于vb中最小化的怎么写，就是最简单的最小化想，像一般的应用程序的最小化，全部的内容，包括:vb中最小化的怎么写，就是最简单的最小化想，像一般的应用程序的最小化，、高分求VB程序：随机产生10个整数，并输出其最大数和最小数、VB程序设计：随机产生10个10—99之间（含10，99）的整数，找出其中最大、最小的元素。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！