

| Type | Description |
private void Refreshing(object sender)
{
}
Private Sub Refreshing(ByVal sender As System.Object) Handles Refreshing End Sub |
private void Refreshing(object sender, EventArgs e)
{
}
void OnRefreshing()
{
}
void __fastcall Refreshing(TObject *Sender)
{
}
procedure Refreshing(ASender: TObject; ); begin end; procedure Refreshing(sender: System.Object; e: System.EventArgs); begin end; begin event Refreshing() end event Refreshing Private Sub Refreshing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refreshing End Sub Private Sub Refreshing() End Sub Private Sub Refreshing() End Sub LPARAMETERS nop PROCEDURE OnRefreshing(oPrint) RETURN |
<SCRIPT EVENT="Refreshing()" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Refreshing() End Function </SCRIPT> Procedure OnComRefreshing Forward Send OnComRefreshing End_Procedure METHOD OCX_Refreshing() CLASS MainDialog RETURN NIL void onEvent_Refreshing()
{
}
function Refreshing as v () end function function nativeObject_Refreshing() return |
For instance, let's say that you need to provide the FitToPage feature for the eXG2antt chart control. The following samples show different implementations.
The following VB sample changes the UnitWidth property of the eXG2ant's Chart object so, the entire chart is printed to the page:
With Print1
Dim l As Long
With G2antt1.Chart
l = .UnitWidth
.UnitWidth = (Print1.ClientWidth - .PaneWidth(False)) / .CountVisibleUnits()
End With
Set .PrintExt = G2antt1.Object
.Preview
G2antt1.Chart.UnitWidth = l
End With
The sample has the disadvantage that once the user changes the Page's setup during Previewing the code is not re-executed, so the chart is displayed as it is on the screen. In order to update the UnitWidth property once the page's setup is changed, we need to handle the Refreshing and Refresh events as shown in the following VB sample:
Dim nUnitWidth As Long
Private Sub Print1_Refreshing()
With G2antt1.Chart
nUnitWidth = .UnitWidth
.UnitWidth = (Print1.ClientWidth - .PaneWidth(False)) / .CountVisibleUnits()
End With
End Sub
Private Sub Print1_Refresh()
G2antt1.Chart.UnitWidth = nUnitWidth
End Sub
Private Sub Preview_Click()
With Print1
Set .PrintExt = G2antt1.Object
.Preview
End With
End Sub The sample changes the UnitWidth property of the Chart during the Refresing event, so the chart fits to page, and restores the UnitWidth's value when the Refresh event is invoked.
The following VB/NET sample changes the UnitWidth property so the chart fits to page:
Dim nUnitWidth As Long
Private Sub Exprint1_RefreshingEvent(ByVal sender As System.Object) Handles Exprint1.RefreshingEvent
With Exg2antt1.Chart
nUnitWidth = .UnitWidth
.UnitWidth = (Exprint1.ClientWidth - .get_PaneWidth(False)) / .CountVisibleUnits()
End With
End Sub
Private Sub Exprint1_RefreshEvent(ByVal sender As System.Object) Handles Exprint1.RefreshEvent
Exg2antt1.Chart.UnitWidth = nUnitWidth
End Sub
Private Sub Preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Preview.Click
Exprint1.PrintExt = Exg2antt1
Exprint1.Preview()
End Sub