VB程序员博客

谢谢。。有源码的共享一下呀。万分感谢。。就像QQ2010登陆界面一样。鼠标移入就发光。1，找三四张图片抠一下，2,捕获鼠标事件 3,鼠标移入就来回切换不就搞定了嘛！
简单自己做一下就好了
改背景色
用GDI+自绘WPF？
SilverLight？啊…..不用这么复杂吧重新封装一个text控件,检测鼠标移入就改变backcolor移出再改变backcolor就行了啊搞个图片贴到text控件后面的窗体位置就可以吧,大小比text略大我还用的 2009 ，不知是啥情况。

友情Up………………
晕，用VB的话，自己用PS搞个图片，就是那种边框图片，搞两张。
然后在Text的MouseMove消息中处理就是了。啥叫发光？
用shape控件在外面做个框也就是了。（MouseMove触发显示）
用GDI+怎么用。有人给点实现源码不。。。赞成用ps图片，简单实用，效果好！其实用flash做界面还是很不错滴在鼠标事件中替换图片取得输入框的句柄,再用FlashWindow实现闪烁效果,加定时器控制.在mouseMove事件里判断鼠标位置,在里边就Timer1.Enabled = True
Call FlashWindow(hwnd, 1)QQ2010？楼主如果用win7的话看看QQ概念版，除了没有视频、语言功能以外，其他貌似都有，效果很炫。。。

比如 4 5 6
  5 3 1
  12 56 54
  45 64 15
  ………………
我想要分别把三列数据保存到三个数组中怎么做，维数不确定逐行读入，split以空格劈开<

逐行读入，split以空格劈开有没有好心人 能给个代码看看啦
我在使用split 时候 老是说类型错误老是说类型错误?你的代码是怎么写的呢，split的用法可参考一下：
http://topic.csdn.net/u/20100310/17/433bd4fb-3044-463d-9dab-a61d27a4dbef.html
分割字符串问题.在等 - -

    如果用KeyPress事件，好像不能截获“del”键的KeyAscii
    如果用MaskEdBox控件，会显示出固定的字符。
    有没有更好的方法？KeyPress包括F1-F12也是无法截获的

使用 KeyDown 吧

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  MsgBox KeyCode
End Sub
<
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  '0-9的ASC值是48-57,A-Z大写是65-90,A-Z小写是97-122, KeyCode自动转为大写返回
  If (KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 65 And KeyCode <= 90) Then
  Else
      KeyCode = 0 '不给值
      MsgBox ("输入无效，请重新输入！")
  End If
End Sub
感谢cbm666，可是我试了一下，用KeyCode = 0好像并不能阻止键盘录入，非法字符还是能显示出来。那直接子类化拦截wm_keydown就行罗.

这种问题，随便google一下，也能找到啊
趁现在google还能用，快点儿用吧

各位高手，最近我编了一个简易的浏览器，用到了combobox 我想在实现输入字符下拉列表即自动出现以前输入过的匹配的项
当在下拉列表中选中它时自动浏览指定网页，请高手指教，谢谢了~~~~Public Declare Function SHAutoComplete Lib "Shlwapi.dll" (ByVal hWndEdit As Long, ByVal dwFlags As Long) As Long
Public Enum SHAC_Constants
    Default = &H0
    FileSystem = &H1
    UrlHistory = &H2
    URLMRU = &H4
    URLAll = (&H2 Or &H4)
End Enum

对于你的问题这样既可。注意，组合框的hWndEdit不是组合框的句柄，而是组合框中的类名为edit句柄。
如果要实现自定义资源，则需要实现自动完成接口还是不太懂啊~~
那具体该怎么写呢？请指教！！
怎么使用它 ，说详细点吧~~谢谢了用StrComp函数比较一下你正在输入的值（即combo1.text）跟combobox列表项之间存在什么关系？是相等，还是大于、小于列表项，根据不同有条件作出相应的处理（注意保存原始项目）。  怎么检查?是在change事件里吗? 还有要是相等了,怎么让下拉列表弹出?????

我现在用这段代码写成只能输入数字，现在想加一个条件就是输入的不能有重复的数字如输入了则弹出“不能有重复的” ，然后删除这个最后输入的数，该怎么写，如我输入04这时我继续输入0或4，弹出“不能有重复的”，然后删除最后输入的0或4，这时text里还只是04
现在的代码就是差禁止Text4(1)输入重复的了
Private Sub Text4_Change(Index As Integer)
If Len(Text4(0).Text) <> 0 Then
Select Case Asc(Text4(0).Text)
Case Is < 0
Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
Case Else
MsgBox "请输入1个字母或汉字"
Text4(0).Text = ""
Text4(0).SetFocus
End Select
End If
If Not IsNumeric(Text4(1).Text) And Len(Text4(1).Text) <> 0 Then
Text4(1).Text = Mid(Text4(1).Text, 1, Len(Text4(1).Text) - 1)
MsgBox "必须输入数字！", vbOKOnly, "输入数据类型错误"
Text4(1).SelStart = Len(Text4(1).Text)
ElseIf Len(Text4(1).Text) = 0 Then
Text4(1).Text = ""
Text4(1).SelStart = Len(Text4(1).Text)
End If
???????????

End Sub
怎么改
我这是控件组，每一个text,都有不同的功能，所以不能统一写 ，禁止输入重复的只是针对Text4(1)的

楼上正解, 顶一下..
PS:
KeyPress事件触发捕获的键值是KeyAsciiy要记得先转成字符Chr(KeyAscii)再做字串比较即可

如题要求只允许被输入正整数，空格 小数点 负号 字母等等都不要。。。，就要正整数谢谢

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If Index = 1 Then
        If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii = 8)) Then
            KeyAscii = 0
        End If
    End If
End Sub

最近写了一个程序,功能是开启程序后.当用户一个界面按某个键时会程序连带的发送一个指定的按键,比如用户在某界面按了Q 时,程序会自动发一个8的按键消息.
问题来了.用户要求程序不能影响聊天打字,该怎么实现呢?
我有个思路,就是判断输入法为EN输入法时,程序停止功能,为其它输入法时开启功能.能现实吗?

你的程序实现什么功能？

比如在游戏里按了Q键,程序会自动按下8键,但我的程序会影响用户打字聊天

判断输入法http://topic.csdn.net/t/20060115/11/4517490.html

呵呵 是有点接近了,我试了下,只能捕捉自身程序的输入法状态.其它程序的输入法状态能捕捉到吗?

用全局Hook

看来这个问题少人遇到呀,我是已经解决了,因为那个游戏是回车打开消息框,再回车发消息,所以通过监视回车我实现了自己的目的,但是我还是想知道,怎么知道用户是不是在往屏幕是写文字,不要说是捕捉键盘的HOOK.因为我这个程序已经是用的全局HOOK做的功能

如题
我这有个需求，例如在text1.text中输入字符a的同时，DataGrid自动检索出以"a"开头的所有数据，在a之后再输入f时，DataGrid自动检索出以"af"开头的数据，以此类推…我用KeyPress事件试了一下,但需要输入a后回车一下,数据才有显示,我的目的是要达到输入字符后就有数据,请教下有什么方法?

在 Change 事件中写.

不要用 回车来判断是否检索.

直接进行检索 就行了,.

text1.text的change事件

我也刚弄好一个这东西。
建议你按输入键作为关键字，比如输入a，a作为关键字，再输入b，ab作为关键字。

有谁能帮忙把上面的程序代码写出来 谢谢了

change事件

看下你的代码
KeyPress事件可以实现

没错 TextBox.KeyPress 事件应该就可以了
不过 TextBox.Change 事件也可以作到

Private Sub msflexgrid1_KeyPress(KeyAscii As Integer)
If KeyAscii <> ASC_ENTER Then
  SendKeys Chr$(KeyAscii)
—————————————–
问题是,当我打开caps lock键,输入大写字母时,第一个输入的是小写,第二就正常,请问各位大侠如何解决.
  我使用
sendkeys asc(ucode(chr$(keyascii)))
字母大小写能解决,但当输入数字时键值不对应…

请问大家在vb控制word中怎样输出下面的公式：

我用域只能输出根号和分数，想这种有上下标，或者根号里套有其他的分数的组合形式该怎么写代码？
恳请达人帮帮忙，万分感激，在线等，急急急急！

大家帮我看看，现在这个问题可以解决啦，就是幂数“2”有点太大啦，该怎么调整呀！有什么方法能变小些

http://c:/Documents%20and%20Settings/TZX/桌面/1.jpg

file:///D:/1.jpg

楼主。。。什么时候开始混论坛的啊

求问大家：我用域编辑公式时，怎样使上下标的字体变小一下
如：EQ sup0(a)sup2(2) .这样设置的上标,但表示的结果为a的平方时，指数2字体太大，如上所以，该怎么设置，请求达人帮忙！

五楼的朋友，你要觉得自己很牛就帮我把问题解决，不过字体大的问题我已经解决，这个就不劳你了，上下标的间距还没搞定，你要是有两把刷子就刷给我看看
http://topic.csdn.net/u/20081017/19/a0915409-3561-4379-949c-cda983b31f58.html
这个链接上的分有本事拿去！
别站着………………

JF

不是倒分，问题是同一个，别的贴子解决了．

呵呵，是的，我的问题fvflove在其他的帖子里解决啦，所以让她来这里接分！