Question

VB如何去掉虚线框

Windows自带的计算器中，按钮上面都没有虚线框，并且点下去的时候也没有，这样看起来很美观，可是自己做的计算器按钮中却有一个虚线框，如何把这个弄掉？有没有比较简单的办法？最好不要弄图片什么的

Answer 1

很简单啊，虚线框是因为你用的控件拥有焦点造成的，你只要在相应的事件中加一条让焦点移开的语句就可以了（也就是让别的控件得到焦点）。
在你的应用中，你可以创建一个没有代码的按钮，放在看不见得地方，然后每次点击计算机按钮的事件中加条语句：没有代码的按钮.setfocus

追问

但是每次点鼠标的时候总是会出现虚线框，我想让它不管是点的过程中还是点完了，始终都看不到虚线框的影子，就像系统自带的计算器那样，这该怎么办

追答

这个没具体试过，我估计最好用图片来解决。
我这几天比较忙，要不过几天帮你看看。

Answer 2

新建立一个工程,放置两个按钮和一个文本框,写入如下代码

Option Explicit

Private Sub Command1_Click()
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.SetFocus
End Sub

在处理完按钮的代码后,最后加上 Text1.SetFocus,这样,可以把按下按钮后产生的焦点移至别的控件.如果做比较复杂的,那就要使用api了吧