vb点虐 设置控件位置 vbnet winsock控件

vb点虐 中怎样用代码设置控件location

控件罩森宽春老.location=New Point(X,Y)

站在用户的角度思考问题，与客户深入沟通，找到于田网站设计与于田网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、网站建设、企业官网、英文网站、手机端网站、网站推广、域名申请、虚拟主机、企业邮箱。业务覆盖于田地区。

X,Y为整数，即控件坐标，物亮原点在窗体左上角

点虐 中如何动态改变Label控件的位置

调整窗口大小，让控件的位置动态调整，不是靠Resize事件中手动设置控件的位置，

你以前是学vb的吗？vb调整窗口大小，需要手动在Resize事件中手指岩动设置控件的位唯改御置，点虐 有更智能的操作，

选中控件，右键属性，找到【Anchor】属性，这个属性就是设置控件随窗体大小动态调整位置的属性，点开右边的下拉框，可以看到一个方块四周有四个块，默认选中的是上面和左边的块，这表明：调整窗体时，上边距和左边距始终保持不变。同样，可以设置左，右，上，下的块，使控件对应的边距随窗体大小改变而改变，

ps：设置控件的歼蚂位置，是这样设置的：

Label.Location = new Point(20,20);

VB点虐 控件的位置如何随窗口的变化而变化

两种方法，一种是固定窗口大小，一种是控件宴缺在窗口大小改变时，自动按窗口位置进行改变；

以上为个人看法，手打很辛苦，希望采纳，谢谢您的支持。

谢谢您的支持，有任何疑问欢迎您再次通过友饥此渠道提问，让大家共同解决晌告辩，共同进步！

以上回答仅为“百度规则”，没有任何违法行为，请楼主采纳，谢谢！

用Vb点虐 实现自定义界面

　个人都不希望在别人的身上发现有与自己的相同之处 作为计算机软件来说也是一样 每一个用户都希望自己使简卖用的软件与别人不一样 于是诞生了换肤技术 用户可以根据自己的喜好来选择不同的界面 从而实现了个团咐旁性化的设置 但是换肤技术有一个不足之处 那就是所有的皮肤都是由开发者预先提供的 而且数量塌橡有限 这就导致了有些用户使用的皮肤会和另一些用户使用的皮肤相同 从而违背了设计者的初衷 虽然有些读者会说 开发商现在提供了下载服务 可以从它们的网站下载更多的皮肤供用户选择 可是从我的使用中发现这些皮肤依然是有限的 而且对于没有条件上网的用户来说这种服务是毫无价值

作为一个软件开发人员 当一种技术已经无法满足用户的需要的时候就该开动脑筋 想想是否可以从另一种角度来思考问题的答案 在这个前提下 通过本人的思考终于想出了一个新的方法 我将它称为交互界面 使用这种技术可以保证在全球范围内不会出现相同的界面结构 从而完全实现个性化 其实要实现这种界面在技术方式上并没有太高的要求 实现原理就是 让用户自己调整每一个控件的位置然后保存这些控件在界面上的坐标位置 在以后启动这个程序的界面时读取这些值 用这些值来设置控件在界面中的位置 下面的代码就是为实现这个功能而设计的（用vb net编写）

Private Sub Form _MouseUp(ByVal sender As Object 　ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Dim x y x = e X y = e Y 获得新的x y的坐标 If Button Enabled = False Then Button Top = y Button Left = x 坐标替换 End If If TextBox Enabled = False Then TextBox Top = y TextBox Left = x End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles MenuItem Click Button Enabled = False 禁止控件响应事件 If TextBox Enabled = False Then TextBox Enabled = True End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles MenuItem Click TextBox Enabled = False If Button Enabled = False Then Button Enabled = True End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles MenuItem Click TextBox Enabled = True Button Enabled = True 将新的坐标保存到文本文件中 If IO File Exists( c:\k txt ) = True Then IO File Delete( c:\txt ) Dim sw As IO StreamWriter = IO File CreateText( c:\k txt ) Dim cstringt cstringl As String Dim tstringt tstringl As String cstringt = Button Top cstringl = Button Left tstringt = TextBox Top tstringl = TextBox Left sw WriteLine(cstringt) 写入新坐标到文本文件中 sw WriteLine(cstringl) sw WriteLine(tstringt) sw WriteLine(tstringl) sw Close() Else Dim sw As IO StreamWriter = IO File CreateText( c:\k txt ) Dim cstringt cstringl As String Dim tstringt tstringl As String cstringt = Button Top cstringl = Button Left tstringt = TextBox Top tstringl = TextBox Left sw WriteLine(cstringt) sw WriteLine(cstringl) sw WriteLine(tstringt) sw WriteLine(tstringl) sw Close() End If MsgBox( 当前界面已经保存 ) End Sub Private Sub Form _Load(ByVal sender As Object ByVal e As System EventArgs) Handles MyBase Load

If IO File Exists( c:\k txt ) = True Then Dim sr As IO StreamReader = IO File OpenText( c:\k txt ) Dim input input input input As String input = sr ReadLine input = sr ReadLine input = sr ReadLine input = sr ReadLine 读取文件中的坐标 Button Top = input Button Left = input TextBox Top = input TextBox Left = input 用文件中的值来初始化控件在界面中的位置 sr Close() End If End Sub

程序说明 在MenuItem _Click 是在调整控件之后将控件的新位置保存到c;\k txt文件中 form_load中的if作用是 如果是没有设置控件的新位置在初始化是将不会发现c;\k txt文件 从而使用默认的参数来指定控件的位置 如果是有c;\k txt文件存在就读取其中的参数来初始化控件的位置 在Form _MouseUp中通过点击窗口中的位置来获得新的坐标 使控件移动到此坐标处 对于Enabled属性的使用是为了使控件在移动时不响应如click等的事件

本文移动的控件是textbox和button两个控件 你可以按照本文提出的方法加入更多的控件 从而实现千人千面

lishixinzhi/Article/program/net/201311/15298