社区
数据库(包含打印,安装,报表)
帖子详情
在ComboBox控件中,怎么触发其Click事件
jhliuguiping
2004-08-10 08:09:48
我在ComboBox控件的Click事件里,写了msgbox "good!",但怎么都触发不了!!!
...全文
878
4
打赏
收藏
在ComboBox控件中,怎么触发其Click事件
我在ComboBox控件的Click事件里,写了msgbox "good!",但怎么都触发不了!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
haohaohappy
2004-08-11
打赏
举报
回复
如果你想一点击就触发,可以用GotFocus事件
haohaohappy
2004-08-11
打赏
举报
回复
ComboBox控件的Click事件是在你选择下拉选项时才触发。
northwolves
2004-08-10
打赏
举报
回复
Private Sub Combo1_click()
MsgBox "the item you clicked is """ & Combo1.Text & """"
End Sub
Private Sub Command1_Click()
Combo1.ListIndex = 3
Combo1_click
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
Combo1.AddItem i
Next
End Sub
danielinbiti
2004-08-10
打赏
举报
回复
选下拉选项触发
spcomm 3.0 串口通信
控件
使用示例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Comm1: TComm;
ComboBox
1: T
ComboBox
;
ComboBox
2: T
ComboBox
;
ComboBox
3: T
ComboBox
;
ComboBox
4: T
ComboBox
;
ComboBox
5: T
ComboBox
; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Button1: TButton; Memo1: TMemo; procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); procedure Button1
Click
(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Viewstring:string; i:integer; rbuf,sbuf:array[1..6] of byte; implementation {$R *.dfm} procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var i:integer; begin viewstring:=' '; move(buffer^,pchar(@rbuf)^,bufferlength); for i:=1 to bufferlength do viewstring:=viewstring+inttohex(rbuf[i],2)+' '; viewstring:='接受'+viewstring; memo1.lines.add(viewstring); memo1.lines.add(' '); end; procedure TForm1.Button1
Click
(Sender: TObject); begin //判断按键的状态可以便面打开串口出错时,要按两次按键 if Button1.Caption = '打开串口' then begin // 串口初始化 //EnumComPorts(
ComboBox
1.Items);//得到串口列表 Comm1.CommName :=
ComboBox
1.Text; Comm1.BaudRate := StrToInt(
ComboBox
2.Text); Comm1.Parity := None; //
ComboBox
3.Text Comm1.ByteSize := _8; //
ComboBox
4.Text Comm1.StopBits := _1; //
ComboBox
5.Text //########################################### Comm1.StartComm;//打开串口 Button1.Caption := '关闭串口';
ComboBox
1.Enabled := false;
ComboBox
2.Enabled := false;
ComboBox
3.Enabled := false;
ComboBox
4.Enabled := false;
ComboBox
5.Enabled := false; //btnSend.Enabled := true; //ImageOff.Visible := false; //ImageOn.Visible := true; end else begin //############################################## Comm1.StopComm; // 关闭串口 Button1.Caption := '打开串口';
ComboBox
1.Enabled := true;
ComboBox
2.Enabled := true;
ComboBox
3.Enabled := true;
ComboBox
4.Enabled := true;
ComboBox
5.Enabled := true; //btnSend.Enabled := false; //ImageOn.Visible := false; //ImageOff.Visible := true; end; end; end.
简述jQuery Easyui一些用法
1、form里的一些
控件
如textbox、
combobox
等添加额外的一些
事件
,如鼠标
事件
(mouseover、
click
等),键盘
事件
(keydown、keyup等),都可以用2
中
方式实现,以textbox为例 方法一:on方法 $(#tt).textbox('textbox').
click
(function(){ console.info(123); });//注意这里必须的.textbox('textbox') easyui自带的inputEvents方法 $(#org).textbox({ inputEvents:$.extend({},$.
不用三方
控件
读excel源码
本资源无任何三方
控件
,无须安装excel,所使用
控件
自己下载去看 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, shlobj,ShellAPI, Menus, StdCtrls, DB, ADODB, FileCtrl, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; Drive
ComboBox
1: TDrive
ComboBox
; con1: TADOConnection; ADOQuery1: TADOQuery; DasFind: TADODataSet; DataSource5: TDataSource;
ComboBox
1: T
ComboBox
; PopupMenu1: TPopupMenu; N1: TMenuItem; Button1: TButton; Edit1: TEdit;
ComboBox
2: T
ComboBox
; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N2: TMenuItem; N3: TMenuItem; Button2: TButton; ADOConnection1: TADOConnection; procedure FileListBox1
Click
(Sender: TObject); procedure N1
Click
(Sender: TObject); procedure Button1
Click
(Sender: TObject); procedure setdbgridwidth; procedure N2
Click
(Sender: TObject); procedure N3
Click
(Sender: TObject); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure
ComboBox
1Change(Sender: TObject); procedure Button2
Click
(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; ...
C#自定义
控件
添加右键菜单的方法
C#自定义
控件
添加右键菜单非常简单,主要用到
控件
,像control定义右键菜单,用items.add()叠加右键菜单内容,用
click
事件
处理函数。 1、control是要定义右键菜单的
控件
。 private void control_MouseDown(object sender, MouseEventArgs e) { if (e.Button == MouseButtons.Right) { ContextMenu menu = new right
Click
Menu(); //初始化menu menu.MenuItems.Add( “c1” )
ASP.NET实现学生管理系统
学生管理系统所需要的具体
控件
和主要属性: 1、登录窗体 基本
控件
: label(标签
控件
) 主要属性:Image(在标签上显示的图像) Text(在标签上显示的文本) TextBox(文本框
控件
) 主要属性:PasswordChar(指示在作为密码框时,文本框
中
显示的字符,而不是实际输入的文本) Button(按钮
控件
)
ComboBox
(下拉框)属性:SelectedItem:获取当前选定的项
事件
:
Click
(单击
控件
时发生) private void butStyle_
Click
(object sender, EventArgs e) { string str =
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章