快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net控件恢复,怎么使vb窗口恢复默认

vb.net控件事件没了

童鞋,我是不是看到你的数据库sa账号密码了,希望你已经改了密码。。。

创新互联专注于企业营销型网站建设、网站重做改版、海盐网站定制设计、自适应品牌网站建设、H5技术电子商务商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为海盐等各大城市提供网站开发制作服务。

重启一下vs,看是否会恢复正常

vb net 最大化窗口后控件错位

控件(包括字体)随窗体按比例缩放

Public Class frmDl'根据自己窗体名变更

Dim x As Single = 0

Dim y As Single = 0

Private Sub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = Me.Width

y = Me.Height

setTag(Me)

End Sub

'递归取控件的原始大小和位置,用tag来纪录

Private Sub setTag(ByVal obj As Object)

For Each con As Control In obj.Controls

con.Tag = con.Width  ":"  con.Height  ":"  con.Left  ":"  con.Top  ":"  con.Font.Size

'如果是容器控件,则递归继续纪录

If con.Controls.Count  0 Then

setTag(con)

End If

Next

End Sub

'递归重新设定控件的大小和位置

Private Sub setControls(ByVal newx As Single, ByVal newy As Single, ByVal obj As Object)

For Each con As Control In obj.Controls

con.AutoSize = False

Dim mytag() As String = con.Tag.ToString.Split(":")

con.Width = mytag(0) * newx

con.Height = mytag(1) * newy

con.Left = mytag(2) * newx

con.Top = mytag(3) * newy

'计算字体缩放比例,缩放字体

Dim currentSize As Single = (mytag(1) * newy * mytag(4)) / mytag(1)

con.Font = New Font(con.Font.Name, currentSize, _

con.Font.Style, con.Font.Unit)

'如果是容器控件,则递归继续缩放

If con.Controls.Count  0 Then

setControls(newx, newy, con)

End If

Next

End Sub

Private Sub frmDl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

'得到现在窗体的大小,然后根据原始大小计算缩放比例

Dim newx As Single = Me.Width / x

Dim newy As Single = Me.Height / y

setControls(newx, newy, Me)

End Sub

End Class

VB.NET菜单栏控件不见了,怎么解决?

没有环境无法准确帮你找,只能大概说下类似的软件。如果有视图(view)之类菜单下,一般都会有状态栏信息栏等,勾选出来就能出现快捷菜单了。

关于VB.net RadioButton控件设置cheked时会触发单击事件的问题。。。

表示刚才亲自测试,建立以个Form,拖了一个Panel,在Panel里面放了3个RadioButton(默认Checked就是False),然后启动,发现第一个被选中了,

然后双击了一下它,跳到代码页面,在启动,第二个被选中,双击第二个和第三个,此时再代码一面出现了3个按钮的事件,在三个事件都设好断点,启动程序,发现3个都没有被选中了,而且也没执行任何一个事件。

vb.net2008 很多控件怎么没有呢?比如tabControl updown 之类的控件都没有,怎么解决呢

有tabControl 控件啊,如果你的“工具箱里没有的话,”自己去工具箱的选项里把它勾选出来。

updown 可以自己写一个控件出来,用一个文本框加一个滚动条或两个按钮就好。

vb.net中,如何实现鼠标在listbox控件上移动时,鼠标所到的条目背景变黑、字变白;移开后还原?

不能实现,listbox没必要有此功能。

因为listbox被视为一个整体,其每一项背景颜色都根据鼠标移上去而改变。


网页名称:vb.net控件恢复,怎么使vb窗口恢复默认
分享链接:http://6mz.cn/article/dsghdjs.html

其他资讯