找高手修改一个小程序

Question

VB做的
现在这个软件打开后会覆盖状态栏
要求不覆盖状态栏要显示，有源文件
有兴趣的可以加QQ：454199742 酬谢  支付宝交易

Answer 1

http://www.88856.net/soft/tl.exe帐号gzhinet  密码：123456789有兴趣加QQ给源文件

Answer 2

.exe运行缺少图片报错，搂主问题没有解决的话可以发我邮箱看看，[email protected]

Answer 3

如果你所说的状态栏 是指WIN的任务栏的话，请用以下办法解决.
1.form的BorderStyle=2、4或5
2. 使用API获得任务栏的高度，之后将Screen.Height-任务栏高度就可以了。
  Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
       

Answer 4

把WindowState状态设置成Maximized就行了啊。只要你的状态栏不是隐藏状态的话，窗体就一直在状态栏的上面了。