Pirate scholar 2017-09-22 05:37 采纳率: 22.2%
浏览 1566
已采纳

C#/vb.net 在picturebox中的画图

C#/vb.net 在picturebox中的画图函数button_click 可以触发,form load不可触发

 Dim MyFormGraphic As Graphics = FormPic.CreateGraphics
        Dim BlackPen As New Pen(Brushes.Black, 2)  '线宽为2 
        Dim x As Integer
        Dim y As Integer
        Dim width As Integer = Piewidth
        Dim height As Integer = Pieheight
        x = (PicBoxWidth - width) / 2    '目前没用
        y = (PicBoxHeight - height) / 2    '计算距离轴起点纵坐标
        Dim StrF As New StringFormat()
        StrF.FormatFlags = StringFormatFlags.DirectionVertical
        MyFormGraphic.DrawString("( 范 围 Km )", New Font("Verdana", 10), Brushes.Blue, 10, 180, StrF)
        For i = 0 To 10 Step 2
            '画距离标尺   上半轴
            Dim startb As New PointF(40, y + height / 2 - i * PicR / 10 - 10)
            MyFormGraphic.DrawString(Convert.ToString(i * PerDis + DisMin), New Font("Verdana", 10), Brushes.Blue, startb)
            '画距离刻度
            Dim start2b As New PointF(80, y + i * PicR / 10)
            Dim end2b As New PointF(89, y + i * PicR / 10)
            MyFormGraphic.DrawLine(BlackPen, start2b, end2b)     '画长刻度
            Dim start2bb As New PointF(84, y + i * PicR / 10 + PicR / 10)
            Dim end2bb As New PointF(89, y + i * PicR / 10 + PicR / 10)
            MyFormGraphic.DrawLine(BlackPen, start2bb, end2bb)     '画短刻度
        Next i

这是什么原因

  • 写回答

1条回答 默认 最新

  • mkq229 2017-09-22 07:58
    关注

    页面还没加载完 可以在paint事件中画

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥30 vb net 使用 sendMessage 如何输入鼠标坐标
  • ¥200 求能开发抖音自动回复卡片的软件
  • ¥15 关于freesurfer使用freeview可视化的问题
  • ¥100 谁能在荣耀自带系统MagicOS版本下,隐藏手机桌面图标?
  • ¥15 求SC-LIWC词典!
  • ¥20 有关esp8266连接阿里云
  • ¥15 C# 调用Bartender打印机打印
  • ¥15 我这个代码哪里有问题 acm 平台上显示错误 90%,我自己运行好像没什么问题
  • ¥50 C#编程中使用printDocument类实现文字排版打印问题
  • ¥15 找会编程的帅哥美女 可以用MATLAB里面的simulink编程,用Keil5编也可以。