Çalışma anında picturebox’ı bölümlemek



‘Formunuza 1 adet picturebox ve 1 adet buton ekleyin

‘aşağıdakileri forma kopyalayın



Sub PerCnt(iNewValue As Integer)

If iNewValue > 100 Or iNewValue < 0 Then

Beep

Exit Sub

End If

Picture1.Cls

Picture1.FontSize = 12

Picture1.ScaleMode = 0

Picture1.ScaleWidth = 100

Picture1.ScaleHeight = 10

Picture1.CurrentY = 2

Picture1.CurrentX = Picture1.ScaleWidth / 2 - (Picture1.ScaleWidth / 15)

Picture1.Print Str(iNewValue) & "%"

Picture1.Line (0, 0)-(iNewValue, Picture1.ScaleHeight), Picture1.FillColor, BF

End Sub



Private Sub Command1_Click()

'Aşağıdaki rakamı 100 ile 0 arasında değiştirebilirsiniz

PerCnt CInt(50)

End Sub