RT小弟在此先谢过了!
解决方案 »
- 请问现在学vb或者vb.net在win7在win8上有什么优势吗?
- Vb串口传输校验和保存问题 在线等急
- 请问如何模拟点击网页中某个已知标签的超链接
- VB怎么实现:获取局域网内所有计算机的列表
- 如何用vb取得一个http地址的请求的内容
- 工程组的问题,简单高分!
- 怎样通过数字的变化而达到图形的变化!
- 求救大叔!!!为什么用polygon画多边形不能实现
- 怎么样编程修改机器的ip地址和 计算机名?
- 为什么real player activex control library控件播放的Realplay没有图像?
- 类SSTab控件使用时动态加入页面
- 请教,如果调用explorer.exe来运行一个进程?
--------------------------------------------------------------------BordeerStyle=3
wwh999(一手人民币,一手摸^^) 答案可行~~
里面设置From的高和宽就OK了
from.height=XXX
from.width=XXX
Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0)
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
Dim xl As Long
Me.Show
xl = GetWindowLong(hwnd, GWL_STYLE)
xl = xl And (Not WS_MAXIMIZEBOX)
SetWindowLong hwnd, GWL_STYLE, xl