<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Select Case (m.Msg)
' The WM_ACTIVATEAPP message occurs when the application
' becomes the active application or becomes inactive.
Case WM_FILE_END
Dim i As Integer
i = objR.QN_StopPlay(0)
i = objR.QN_CloseFile(0)
mnuStopPlay.Enabled = False
RemoveHandler objBackImage.BackImageChange, AddressOf BackImageChange
objBackImage.Bestop()
objBackImage = Nothing
End Select
MyBase.WndProc(m)
End Sub以上是第1段Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
GroupBox5.Text = "灵敏度调整(高灵敏0级——>低灵敏10级) " & TrackBar1.Value.ToString & "级"
RaiseEvent ChangeLevel(Me, TrackBar1.Value)
End Sub以上是第2段这2段是连在一起有互相联系的,我翻成C#的时候总报标识符错,望有高人指点
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Select Case (m.Msg)
' The WM_ACTIVATEAPP message occurs when the application
' becomes the active application or becomes inactive.
Case WM_FILE_END
Dim i As Integer
i = objR.QN_StopPlay(0)
i = objR.QN_CloseFile(0)
mnuStopPlay.Enabled = False
RemoveHandler objBackImage.BackImageChange, AddressOf BackImageChange
objBackImage.Bestop()
objBackImage = Nothing
End Select
MyBase.WndProc(m)
End Sub以上是第1段Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
GroupBox5.Text = "灵敏度调整(高灵敏0级——>低灵敏10级) " & TrackBar1.Value.ToString & "级"
RaiseEvent ChangeLevel(Me, TrackBar1.Value)
End Sub以上是第2段这2段是连在一起有互相联系的,我翻成C#的时候总报标识符错,望有高人指点
然后 private void TrackBar1_ValueChanged(object sender , System.EventArgs e )
{
GroupBox5.Text = "灵敏度调整(高灵敏0级——>低灵敏10级) "+ TrackBar1.Value.ToString() + "级";
ChangeLevel(this, TrackBar1.Value);
}
http://blog.csdn.net/whqsz/archive/2005/05/08/373415.aspx