Results 1 to 4 of 4

Thread: Testing code copy from vb tagged code

  1. #1

    Thread Starter
    Sinecure devotee
    Join Date
    Aug 2013
    Location
    Southern Tier NY
    Posts
    6,582

    Testing code copy from vb tagged code

    Testing vb code tag copy.
    vb Code:
    1. Private Sub Command3_Click()
    2.   Set Picture1.Picture = Picture1.Image
    3. End Sub
    4.  
    5. Private Sub Form_Load()
    6.   ScaleMode = vbPixels
    7.   Picture1.ScaleMode = vbPixels
    8. End Sub
    9.  
    10. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    11.   If Check1.Value = Checked Then          'AutoRedraw True, so drawing in .Image layer
    12.     Picture1.Circle (X, Y), 30, vbRed
    13.   Else
    14.     Picture1.Circle (X, Y), 35, vbBlue
    15.   End If
    16. End Sub

  2. #2
    Super Moderator Shaggy Hiker's Avatar
    Join Date
    Aug 2002
    Location
    Idaho
    Posts
    38,989

    Re: Testing code copy from vb tagged code

    Quote Originally Posted by passel View Post
    Testing vb code tag copy.
    vb Code:
    1. Private Sub Command3_Click()
    2.   Set Picture1.Picture = Picture1.Image
    3. End Sub
    4.  
    5. Private Sub Form_Load()
    6.   ScaleMode = vbPixels
    7.   Picture1.ScaleMode = vbPixels
    8. End Sub
    9.  
    10. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    11.   If Check1.Value = Checked Then          'AutoRedraw True, so drawing in .Image layer
    12.     Picture1.Circle (X, Y), 30, vbRed
    13.   Else
    14.     Picture1.Circle (X, Y), 35, vbBlue
    15.   End If
    16. End Sub
    Code:
    Private Sub Command3_Click()
      Set Picture1.Picture = Picture1.Image
    End Sub
     
    Private Sub Form_Load()
      ScaleMode = vbPixels
      Picture1.ScaleMode = vbPixels
    End Sub
     
    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Check1.Value = Checked Then          'AutoRedraw True, so drawing in .Image layer
        Picture1.Circle (X, Y), 30, vbRed
      Else
        Picture1.Circle (X, Y), 35, vbBlue
      End If
    End Sub
    vb Code:
    1. Private Sub Command3_Click()
    2.   [COLOR="#FF0000"]Set Picture1.Picture = Picture1.Image[/COLOR]
    3. End Sub
    4.  
    5. Private Sub Form_Load()
    6.   ScaleMode = vbPixels
    7.   Picture1.ScaleMode = vbPixels
    8. End Sub
    9.  
    10. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    11.   If Check1.Value = Checked Then          'AutoRedraw True, so drawing in .Image layer
    12.     Picture1.Circle (X, Y), 30, vbRed
    13.   Else
    14.     Picture1.Circle (X, Y), 35, vbBlue
    15.   End If
    16. End Sub
    My usual boring signature: Nothing

  3. #3

    Thread Starter
    Sinecure devotee
    Join Date
    Aug 2013
    Location
    Southern Tier NY
    Posts
    6,582

    Re: Testing code copy from vb tagged code

    Firefox had no problem copying text from a [HIGHLIGHT ] tagged window but Internet explorer made a mess of it, copying the line numbers as well as the lines and inserting a blank line between all the original lines.
    I usually just use the [code ] tags and will probably continue to do so.

  4. #4
    Super Moderator Shaggy Hiker's Avatar
    Join Date
    Aug 2002
    Location
    Idaho
    Posts
    38,989

    Re: Testing code copy from vb tagged code

    My copies were made using Chrome. Copied and pasted from the original, so the line numbers didn't come over. The highlighting is messed up, though, as the COLOR tags are not being parsed in the second copy.
    My usual boring signature: Nothing

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width