4/2/2024 0 Comments Vb6 codejock slider reverse''' The outer border (around the edge of the progress) will be drawn ''' The inner border (around the center) will be drawn ''' The numbers will only be shown when the mouse is over the control ''' Determines how the progress is displayed as numbers This is how I am trying but not able to implement what I require can you please modify it Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMoveĭim cx As Double = / 2ĭim cy As Double = / 2Īngle = 180 - (57.3 * Math.Atan2(dx, dy)) Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.PaintĮ.Graphics.SmoothingMode = ĭim cx As Integer = CInt( / 2)ĭim cy As Integer = CInt( / 2)Į.Graphics.DrawArc(p, cx - r, cy - r, 2 * r, 2 * r, -90, CInt(Angle))ĭim a As String = CSng(200 * (Angle) / 360).ToString("f1")Į.Graphics.DrawString(a, New Font("arial", 14, FontStyle.Bold), Brushes.White, cx - 20, cy - 10) Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load There is an angle change in mouse move and a change to the start angle for drawarc in paint. This is the same example I have been using. I want it to be positioned at the top as it is currently positioning to the right
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |