Question

vb中使用graphics.drawstring画字符串窗体只能显示一部分，怎么设置显示全部

Dim myfont As New Font("微软雅黑", 50)
Dim mybrush As New SolidBrush(Color.Red)
Dim g As Graphics = Me.CreateGraphics
g.DrawString("今天发工资啦!", myfont, mybrush, 10, 30)

改变字体大小就可以全部显示了
在多个事件（paint，click）中测试过，结果没有发生改变





Answer 1

应该是绘画文字后，窗口重绘时清除了那一块区域。

所以放窗体的Paint事件里就行了。

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
   
    ' 在 Paint 事件参数中提供了 Graphics. 无需 Create.
    Using g As Graphics = e.Graphics
        Dim myfont As New Font("微软雅黑", 50)
        Dim mybrush As New SolidBrush(Color.Red)
        g.DrawString("今天发工资啦!", myfont, mybrush, 10, 30)
    End Using
    
End Sub

追问

这个代码就是在窗体paint事件中

追答

是啊，你直接复制粘贴就OK了...

追问

我意思这个代码就是写在Paint事件中的，但是还是无法全部显示

追答

如果你确定了代码是早 Form 的 Paint 控件里。

那你查下你窗口上是不是还有其他控件？

所有我帖的代码，都是测试过的。也可以把你的项目打包给我看。

追问

用你的代码可以了，按钮的click事件怎么调用paint事件的过程？

追答

看代码中的Form1_Paint最后的Handles Me.Paint。

你可以这样理解
Handles(绑定) Me(控件名，这里是说这个类，也就是窗口了) . Paint(事件类型)
把中文字提取出来就是
绑定到窗口的Paint事件类型。
所以要改成按扭的话，把Me改成那个控件名就行了。

Answer 2

这是vb.net题,跟vb不太一样