Visual Basic

Mycroft Holmes wrote:

with 30yrs experience I would have thought you would have gained a deeper knowledge of what an OS and development platform can do

Mycroft Holmes wrote:

if you answered some of the questions in the forums (as Paul does) you would come to expect what sounds like an idiot question

<br />
Public Sub AdjustHeight(ByVal rtfRichEdit As RichTextLib.RichTextBox, ByVal lpMinHeight As Long)<br />
Dim lpMax As Long    ' Max scroll position<br />
Dim lpMin As Long    ' Min scroll position<br />
	    <br />
' get the scroll range<br />
GetScrollRange rtfRichEdit.hwnd, SB_VERT, lpMin, lpMax<br />
	    <br />
' It may not be necessary to subtract the lpMin value from lpMax because I can't think of anytime that lpMin would be anything but 0... but just in case....<br />
If ((lpMax - lpMin) * Screen.TwipsPerPixelY < lpMinHeight) Then<br />
' This allows you to set a minimum height for your control<br />
rtfRichEdit.Height = lpMinHeight<br />
Else<br />
' Else the control height should be equal to the text height - the max scroll value.<br />
rtfRichEdit.Height = (lpMax - lpMin) * Screen.TwipsPerPixelY<br />
End If<br />
End Sub<br />

Public Partial Class frmMain 
    Inherits Form 
    Public Sub New() 
        InitializeComponent() 
        
            
            ' Stand2plates.Add(3); 
        allStands = New List() {Stand1plates, Stand2plates, Stand3plates} 
    End Sub 
    
    Private allStands As List() 
    Private Stand1plates As New List() 
    Private Stand2plates As New List() 
    Private Stand3plates As New List() 
End Class 

For Each x As ListViewItem In ListView1.Items
	x.Selected = False
Next

Dim lvi As New ListViewItem
lvi.Selected = True
lvi.Text = "test"
ListView1.Items.Add(lvi)

ListView1.Focus()