三个小问题,每题20分,解决立即送分,谢谢!

daisydew 2003-11-03 11:18:32
1.文本框中如何判断按了回车键?回车键引起了什么事件?
2.数据量大时适合用什么显示比较合适,不用分页.(如要分页,如何用ado.pagesize?)
比如datagrid,mshflexgrid,listview(有上万条记录)
3.我用了command的style=1.可以用图像的那一种,不知为什么如果我把几个按钮放在一块,如果关掉本窗口,不做任何事情,又打开这个窗口,按钮不可见,但点击那个地方按钮的事件会执行?这是什么回事(排除显卡的原因,显卡较好,别的机器上也如此.)是不是有什么属性没有设置.

期待您给出正确答案.
谢谢!!
...全文
57 20 打赏 收藏 转发到动态 举报
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
daisydew 2003-11-12
  • 打赏
  • 举报
回复
最后一次UP,请给予解决.
daisydew 2003-11-09
  • 打赏
  • 举报
回复
up一下,最后一个问题,请大家帮忙!!
daisydew 2003-11-05
  • 打赏
  • 举报
回复
放在一块是指按钮联在一起,排成一行。属性只改了style=1 和backcolor.
efsnake 2003-11-05
  • 打赏
  • 举报
回复
你的问题3中“放在一块”是什么意思?不举个例子,把按钮的相关属性写出来看看!
vbanddelphi 2003-11-05
  • 打赏
  • 举报
回复
问题一的解决已经很清楚了!
二,是显示的话,使用msflexgrid控件
三。装个补丁看看!
lrb820102 2003-11-05
  • 打赏
  • 举报
回复
是否用了控件组了
若是
不妨取消控件组试试
bhdxia 2003-11-05
  • 打赏
  • 举报
回复
Private Sub Text1_KeyPress(KeyAscii As Interger)
If KeyPress = 13 then
'按了回车键
end if
end sub


楼上的,你调试过了没有
bhdxia 2003-11-05
  • 打赏
  • 举报
回复
楼上的好像3不能实现。
yas 2003-11-05
  • 打赏
  • 举报
回复
1.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then MsgBox "你按了回车!"
End Sub
2.
objRs.Open "SQL语句", objConn, 1, 1
objRs.PageSize = 10 '每页显示的记录数
objRs.AbsolutePage = 1 '读取的页数
For i = 1 To objRs.PageSize
'读取一行记录
objRs.MoveNext
Next i
3.
用ImageList控件
bbgbianbaogui 2003-11-04
  • 打赏
  • 举报
回复
up
mfkqiu 2003-11-04
  • 打赏
  • 举报
回复
up
itlive 2003-11-04
  • 打赏
  • 举报
回复
NO.1
private sub key_press(keyascii as integer)
if keyascii=13 then
'要响应的代码

end if

end sub
海牛 2003-11-04
  • 打赏
  • 举报
回复
如果要分页,在打开数据库是应该这样打开
Dim objCon As New Adodb.Connection
Dim objRs As New Adodb.Recordset

objCon.Open "数据库连接字符串"
objRs.Open "查询语句",objCon,adOpenKeyset, adLockOptimistic, &H1
objRs.PageSize=10'每页显示10个记录
kimurakenshin 2003-11-04
  • 打赏
  • 举报
回复
listview控件没有记录限制,就是如果记录多,加载比较慢.
rainstormmaster 2003-11-04
  • 打赏
  • 举报
回复
没出现你说的问题:

Private Sub Form_Resize()
Me.Refresh
End Sub

试试
daisydew 2003-11-04
  • 打赏
  • 举报
回复
谢谢大家,
不好意思分不多.
第三个问题是这样的
我不一定要在按钮上加载一辐图片,也可以只是给它设定颜色,但不知为什么如果我把几个按钮放在一块,如果关掉本窗口,不做任何事情,又打开这个窗口,按钮不可见(那个地方显示的是空的(就好像缺了一块似的),如果按钮东放一个,西放一个,不连在一块就能正确显示,但点击那个地方按钮的事件会执行?这是什么回事(排除显卡的原因,显卡较好,别的机器上也如此.)
注:style=1(已经设置了)
回答完就解贴,
再次感谢!!
ccnucjc 2003-11-04
  • 打赏
  • 举报
回复
2 直接设置rs.pagesize的值就行了
yjch 2003-11-04
  • 打赏
  • 举报
回复
问题1 :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'你要的程序段
End If
End Sub
问题2:
不明白你的意思。
问题3:
'设置他的“style=1”
With Command1
.Picture = LoadPicture(“path”)
End With
__ANDY__WU 2003-11-03
  • 打赏
  • 举报
回复
1 在文本框的键盘响应事件中可以判断
Private Sub Text1_KeyPress(KeyAscii As Interger)
If KeyPress = 13 then
'按了回车键
end if
end sub
2 不明白你说的是什么,你用的是什么来显示的啊?pagesize 从来没有见过(我菜)
3 新增一个 ImageList 控件,将你的按钮要用的图片加进去.
Form_Load ()
Command.Picture= ImageList.Overlay(1,1)
End Sub
yangbody2003 2003-11-03
  • 打赏
  • 举报
回复
1.在KeyPress事件下判断KeyAscii的值应该是13就是回车键。

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧