[LEFT][FONT=Verdana][SIZE=2][COLOR=#010101][COLOR=#010101][FONT=Times New Roman]Table1.ColWidth("Col1") = 100
[/FONT][/COLOR][/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#010101][COLOR=#010101][FONT=Times New Roman]Table1.ColWidth("Col2") = Table1.Width - [/FONT][/COLOR][/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#010101][COLOR=#010101][FONT=Times New Roman]Table1.ColWidth("Col1")[/FONT][/COLOR][/COLOR][/SIZE][/FONT][/LEFT]
Sub GetScrollBarsProperties (tableName)
obj1.FromControl(tableName)
obj1.Value = obj1.GetProperty("Controls")
obj2.Value = obj1.GetProperty2("Item", 0)
HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (true or false)
HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
obj2.Value = obj1.GetProperty2("Item", 1)
VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
VScrollHeight = obj2.GetProperty("Width") 'Vertical scroll bar width
End Sub
obj1.New1(False)
obj2.New1(False)
Sub GetScrollBarsProperties (tableName)
obj1.FromControl(tableName)
obj1.Value = obj1.GetProperty("Controls")
obj2.Value = obj1.GetProperty2("Item", 0)
HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (true or false)
HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
obj2.Value = obj1.GetProperty2("Item", 1)
VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
VScrollHeight = obj2.GetProperty("Width") 'Vertical scroll bar width
Msgbox(HScrollVisible & "." & HScrollHeight & "." & VScrollVisible & "." & VScrollHeight)
End Sub
GetScrollBarsProperties(tbEditor)
An error occurred on sub editor.frmeditor_show
Line number: XXX
GetScrollBarsProperties(tbEditor)
Error description:
Variable: editor.tbeditor was not assigned any value.
Continue?
GetScrollBarsProperties("tbEditor")
New1InitializeDataGrid should be set to true if you are using the object with a Table control.
Public Sub FixScrollBars
obj1.FromControl("tbEditor")
obj1.Value = obj1.GetProperty("Controls")
obj2.Value = obj1.GetProperty2("Item", 0)
'HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (True o False)
'HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
obj2.Value = obj1.GetProperty2("Item", 1)
VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
VScrollWidth = obj2.GetProperty("Width") 'Vertical scroll bar width
If VScrollVisible = True Then
tbEditor.ColWidth("Word") = tbEditor.Width - priorityColumnWidth - VScrollWidth
Else
tbEditor.ColWidth("Word") = tbEditor.Width - priorityColumnWidth
End If
End SUb
If VScrollVisible = True Then
Sub App_Start
frmMain.Show
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
Timer1.Enabled = False
FixScrollBars("tbEditor")
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?