New look and [HIGHLIGHT=vb] tag

[4x2y]

The look of code enclosed between {HIGHLIGHT=vb}{/HIGHLIGHT} is very bad, first it just show only 4 lines at a time, second the line numbers are not continues as it is go from 1 to 9

here is an example with {HIGHLIGHT=vb}{/HIGHLIGHT}

Option Explicit
 
Dim mblnMouseDown As Boolean
Dim msngX As Single
 
Private Sub MDIForm_Resize()
    Picture1.Width = Me.Width / 4
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        mblnMouseDown = True
        msngX = X
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mblnMouseDown = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    On Error Resume Next
    
    If X > Picture1.Width - 240 Then
        Picture1.MousePointer = 9
    Else
        Picture1.MousePointer = 0
    End If
        
    If Button = 1 Then
        If mblnMouseDown = True Then
            If Picture1.Width < 1200 Then
                Picture1.Width = 1200
            Else
                Picture1.Width = Picture1.Width + (X - msngX)
                msngX = X
            End If
        End If
    End If
End Sub

the same example with {CODE}{/CODE}

Option Explicit
 
Dim mblnMouseDown As Boolean
Dim msngX As Single
 
Private Sub MDIForm_Resize()
    Picture1.Width = Me.Width / 4
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        mblnMouseDown = True
        msngX = X
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mblnMouseDown = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    On Error Resume Next
    
    If X > Picture1.Width - 240 Then
        Picture1.MousePointer = 9
    Else
        Picture1.MousePointer = 0
    End If
        
    If Button = 1 Then
        If mblnMouseDown = True Then
            If Picture1.Width < 1200 Then
                Picture1.Width = 1200
            Else
                Picture1.Width = Picture1.Width + (X - msngX)
                msngX = X
            End If
        End If
    End If
End Sub

I hope there is a solution.

[JuggaloBrotha]

This has all been pointed out in the "report upgrade problems" thread

[gep13]

Hello,

I am going to close this thread. Please report all forum issues here:

http://www.vbforums.com/showthread.p...in-this-thread

Thanks

Gar