怎么调整线条粗细？ - 编程论坛

#2

apull2023-03-24 09:27

控件的Appearance属性改为0试试。

#3

wds12023-03-24 11:32

在VB6中，可以通过修改控件的BorderStyle属性来改变控件的边框样式。BorderStyle属性有以下几个选项：
0：无边框
1：固定单线边框
2：调整单线边框
3：固定三维边框
4：调整三维边框
如果你想要更细的边框线条，可以尝试使用BorderStyle属性的第二个选项，即调整单线边框。你可以在代码中找到对应控件的BorderStyle属性，将其设置为2即可。例如，如果你想要将名为"TextBox1"的文本框的边框线条变细，可以在代码中添加以下行：
TextBox1.BorderStyle = 2
这将把"TextBox1"的边框线条设置为调整单线边框。
如果你想要更细的线条，可以尝试使用其他的控件或者自定义控件。
例如使用Line (x1, y1)-(x2, y2), [color], [B], [F]画线或者框。

#4

asad2023-03-24 14:17

回复 3楼 wds1

谢谢！！

#5

asad2023-03-24 21:20

回复 3楼 wds1

TextBox1里BorderStyle属性只有0和1，找不到2

#6

wds12023-03-25 10:16

可能是记混了。
1、窗体的BorderStyle有0-5
   0 - None
   1 - Fixed Single
   2 - Sizeable
   3 - Fixed Double
   4 - Fixed ToolWindow
   5 - Sizeable ToolWindow
2、以下代码是text1的细边框。
   Text1.Appearance =0
   Text1.BorderStyle = 1
3、或者用line在窗体画线

    Me.AutoRedraw = True
    Me.BorderStyle = 0             '设置窗体无边框
    Me.ScaleMode = vbPixels        '设置窗体的坐标系统为像素
    Me.DrawStyle = vbInsideSolid   '设置绘制样式为实心
    Me.DrawWidth = 1               '设置绘制宽度为1个像素
    Me.DrawMode = vbCopyPen        '设置绘制模式为复制笔
    Line (10, 10)-(10, 200), vbRed '绘制竖线
    Line (10, 10)-(300, 10), vbRed '绘制横线
End Sub

[此贴子已经被作者于2023-3-25 10:50编辑过]

#7

asad2023-03-25 18:57

回复 6楼 wds1

谢谢，还有个问题，当选中按钮，按钮外面有个框子是怎么做出来的

#8

wds12023-03-26 01:18

1、默认命令按钮就有虚框。但是不明显。
2、如果要做得比较漂亮的话，最好用图片按钮+label标签实现
通过设置鼠标移动事件，点击事件，可以实现背景效果和浮动效果。
3、下面是图片按钮的截图示例

只有本站会员才能查看附件，请登录

#9

asad2023-03-28 17:02

回复 8楼 wds1

再问一个，在窗体上画个按钮，怎么让按钮在窗体中间，上下位置一样，左右也一样，怎么快速调整

#10

asad2023-03-31 14:43

回复 6楼 wds1

按钮设置0-flat怎么没效果，没有细边框，怎么回事？