Mega Code Archive

 

Categories / VB.Net by API / System Drawing

 

Graphics DrawString(String s, Font m, Brush , Int x, Int y)

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleOrAdding    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint         Dim canvas As Graphics = e.Graphics                  Dim mainFont As Font         Dim textStyle As New FontStyle         textStyle = FontStyle.Regular         textStyle = textStyle Or FontStyle.Bold         mainFont = New Font("Arial", 40, textStyle)                  Dim brush1 As New SolidBrush(Color.DarkBlue)         canvas.DrawString("www.rntsoft.com",mainFont, brush1, 120, 70)                          canvas = Nothing     End Sub End Class