https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=25973#CommentId69591
投稿者 初心者  (社会人) 投稿日時 2015/12/21 15:55:29
はいどうぞこちらです

はいどうぞこちらです
Private Sub picturebox11_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox11.Paint
         Dim fnt As New Font("MS UI Gothic", 12)
         Dim quiz = File.ReadLines(Me.File, Encoding.GetEncoding("Shift_JIS")).Skip(Me.Line).FirstOrDefault()
         Dim items() As String = quiz.Split(",")
         e.Graphics.DrawString("揚げせん食う？", fnt, Brushes.Green, 40, 20)
     End Sub 







0