vblistbox(VB中使用DIB方法)

1. vblistbox，VB中使用DIB方法？

VB没DIB方法。

但可采用Point 方法

按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。

'使用Point方法 , 窗体判色代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1 = X Text2 = Y Text3 = Point(X, Y) Text4 = (Val(Text3) Mod 65536) Mod 256 'Red Text5 = (Val(Text3) Mod 65536) \ 256 'Green Text6 = Val(Text3) \ 65536 'Blue Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))End Sub'PictureBox判色代码:Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1 = X Text2 = Y Text3 = Picture1.Point(X, Y) Text4 = (Val(Text3) Mod 65536) Mod 256 'Red Text5 = (Val(Text3) Mod 65536) \ 256 'Green Text6 = Val(Text3) \ 65536 'Blue Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))End Sub

vblistbox(VB中使用DIB方法)

2. VB有关列表框的设计题？

'电脑没装VB6.0，用的VS2010请参考Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.Items.Add("耗油生菜") ListBox1.Items.Add("清蒸鱼") ListBox1.Items.Add("酱爆鸡翅") ListBox2.Items.Add("大米") ListBox2.Items.Add("馒头") ListBox2.Items.Add("面条") End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged TextBox1.Text = "" For Each item In ListBox1.SelectedItems TextBox1.Text += item + "," Next TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1) End Sub Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged TextBox2.Text = ListBox2.SelectedItem End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = "你选择的菜是：" + TextBox1.Text + "，你选择的主食是：" + TextBox2.Text End SubEnd Class

3. 如何处理vb串口中出现的错误？

OnErrorGoTogggMSComm1.Settings="9600,n,8,1"'设置波特率和字符发送格式MSComm1.CommPort=5'设置通信串口MSComm1.InputLen=0'设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据MSComm1.InBufferSize=1024'设置接收缓冲区1024ByteMSComm1.InBufferCount=0'返回接收缓冲区内的等待读取的字节个数，可通过设置该属性为0来清除接收缓冲区。MSComm1.OutBufferSize=1024'设置发送缓冲区1024ByteMSComm1.OutBufferCount=0'返回发送缓冲区内等待发送的字符数，可用来清空缓冲区。MSComm1.RThreshold=1'每个字符到接收缓冲区都触发接收事件MSComm1.SThreshold=1MSComm1.InputMode=comInputModeBinaryMSComm1.PortOpen=True'打开串口ExitSubggg:MsgBox"无效端口号"&vbCrLf&"请更改端口号"

4. 在VB中删除列表框中所有项目的方法是什么？

Clear 方法（Clipboard、ComboBox、ListBox）用于清除 ListBox，ComboBox 或系统剪贴板的内容。语法object.Clearobject 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。说明绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 Clear 方法。