十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在 from1.vb 这个窗口中点属性
十余年的新源网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整新源建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联公司从事“新源网站设计”,“新源网站推广”以来,每个客户项目都认真落实执行。
在属性里有个 text 把后面的空格 加上你所想要的标题,如果不想要标题,直接为空
点选窗体、一点要点选上.然后在属性栏里、把text属性里的字取消、清空、那么窗体的标题就没有了.
一句两句说不清楚..
建议你去自己学习下
希望对你有帮助..祝你成功
窗口的FormBorderStyle是修改窗口属性的~,可以改成None这样就没有边框和标题栏了
如果仅仅要去掉标题栏,修改窗口ControlBox为false,并吧Text属性置空就好了
1、无边框窗体也就是无标题栏窗体,对于这样的窗体移动需要编程实现。
2、vb有两种办法实现,一直接编程实现,二调用windows API编程实现。
3、这里示例直接编程实现:
Option Explicit
Dim BolIsMove As Boolean, MousX As Long, MousY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then BolIsMove = True
MousX = X
MousY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim CurrX As Long, CurrY As Long
If BolIsMove Then
CurrX = Me.Left - MousX + X
CurrY = Me.Top - MousY + Y
Me.Move CurrX, CurrY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BolIsMove = False
End Sub
呵呵,最近刚刚研究了这个方面的东西。
实现你说的效果并不是很难,引用一下第三方控件就可以了。我推荐给你两个控件一个是skin++(又叫skinplusplus),一个是skinmagic。我是用skin++实现的vb,skinmagic实现的vc。实现起来并不是很麻烦,控件当中对按钮、窗体、对话框、各类控件的颜色和形状都可以进行改变,伴随这控件提供了很多界面方案,效果都是不错的,同时还有编辑工具、可以自定义方案。
如果你想研究的话,去网上查查两个控件的使用方法,demo也是相当多的,下个demo看看你就能搞定了。
或者联系我也行,我公司封了qq,找我msn:boyjin821@163.com(或者等我阴了公司的防火墙qq 52964764)(暴金)