codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click video.Pause() Dim rec As CRHReco.PreviewWindow If count4 = 0 Then rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_w * 1000000) rec.ShowDialog() rec.Dispose() Else If wcount = 1 Then rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Start_lu * 1000000, sceanes(count).Start_w * 1000000) rec.ShowDialog() rec.Dispose() ElseIf lucount = 1 Then rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_lu * 1000000, sceanes(count).Start_v * 1000000, sceanes(count).Start_lu * 1000000) rec.ShowDialog() rec.Dispose() ElseIf vcount = 1 Then rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_v * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_v * 1000000) rec.ShowDialog() rec.Dispose() Else rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_w * 1000000) rec.ShowDialog() rec.Dispose() End If End If End Sub
Private
[
?
]
Run code
Submit