一、如何使设计好的vb界面在不同的分辨率下正常显示
你在form_load 中增加 Me.WindowState = 2 就可以了！！！！！！！！！
二、vb中input怎么用？
input 分input语句和input函数
1、Input # 语句
从已打开的顺序文件中读出数据并将数据指定给变量。
Input # 语句示例
本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设 TESTFILE文件内含数行以 Write # 语句写入的数据；也就是说，每一行数据中的字符串部分都是用双引号括起来，而与数字用逗号隔开，例如，（Hello, 234）。
Dim MyString, MyNumber
Open TESTFILE For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, MyString, MyNumber ' 将数据读入两个变量。
Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
2、Input 函数
就是从一个文件号里面读,如果没标示,就是从头开始,返回 String，它包含以 Input 或 Binary 方式打开的文件中的字符。
返回 String，它包含以 Input 或 Binary 方式打开的文件中的字符。
语法
Input(number, [#]filenumber)
Input 函数的语法具有以下几个部分：
部分 描述
number 必要。任何有效的数值表达式，指定要返回的字符个数。
filenumber 必要。任何有效的文件号。
3、说明
通常用 Print # 或 Put 将 Input 函数读出的数据写入文件。
Input 函数只用于以 Input 或 Binary 方式打开的文件。
与 Input # 语句不同，Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。对于 Binary 访问类型打开的文件，如果试图用 Input 函数读出整个文件，则会在 EOF 返回 True 时产生错误。
在用 Input 读出二进制文件时，要用 LOF 和 Loc 函数代替 EOF 函数，而在使用 EOF 函数时要配合以 Get 函数。注意 对于文本文件中包含的字节数据要使用InputB 函数。
对于InputB 来说，number 指定的是要返回的字节个数，而不是要返回的字符个数。
三、VB读取图片RGB值?
不用API Dim fname As String Private Sub Command1_Click() Dim c As String, x As Integer, y As Integer c = Me.Caption = 正在读取颜色中... For x = 1 To Picture1.ScaleWidth For y = 1 To Picture1.ScaleHeight c = c & strRGB(Picture1.Point(x - 1, y - 1)) & '读取每个像素的十六进制颜色值 Next c = c & vbCrLf Next Open fname & .txt For Output As #1 '在同一目录下保存txt格式的颜色文件 Print #1, c Close #1 Me.Caption = 读取颜色 End Sub Private Function strRGB(ByVal color As Long) As String '颜色值转RGB格式的字符串 Dim r As Integer, g As Integer, b As Integer r = (color And &HFF) Mod 256 g = ((color And &HFF00) \ &H100) Mod 256 b = ((color And &HFF0000) \ &H10000) Mod 256 strRGB = RGB( & b & , & g & , & r & ) End Function Private Sub Form_Load() Me.Caption = 读取颜色 Picture1.AutoSize = True Picture1.ScaleMode = 3 fname = e:\hehe.jpg Picture1.Picture = LoadPicture(fname) End Sub
四、vb 中combox控件的使用
'添加窗体Form1,按钮Command1,Command2,Command3,组合框Combo1,然后添加如下代码:
Private Sub Form_Load()
Combo1.AddItem 1
Combo1.AddItem 2
Combo1.AddItem 3
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
End Sub
Private Sub Combo1_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
If Combo1.Text = 1 Then
Call setButton(Command1)
ElseIf Combo1.Text = 2 Then
Call setButton(Command2)
Else
Call setButton(Command3)
End If
End Sub
Private Sub setButton(cmd1 As CommandButton)
cmd1.Visible = True
cmd1.Enabled = True
End Sub
