mini screen recorder
Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
you'll need:
10 button
1 timer
1 label, text: 01FPS
3 textbox
1 Checkbox name: CheckBox1
Buttons text:
Button1 = Start
Button2 = Stop
Button3 = 10
Button4 = 50
Button5 = 100
Button6 = 250
Button7 = 500
Button8 = 1000
Button9 = Video On
Button10 = Video Off
textbox Properties:
textbox 1= FileDIR text: C:\ScreenREC\
textbox 2= FileNUM text: 0
textbox 3= FileType text: .JPG
Button Properties:
Button1Name: REC
Button2Name: STP
Button3Name: INT10
Button4Name: INT50
Button5Name: INT100
Button6Name: INT250
Button7Name: INT500
Button8Name: INT1000
Button9Name: Button9
Button10Name: Button10
Then
add form2 name it VideoScreenWindow
add 1picturebox name it VideoScreen
The result:
Form1: Code:
Public Class Form1
This file is hosted off-site.
10 button
1 timer
1 label, text: 01FPS
3 textbox
1 Checkbox name: CheckBox1
Buttons text:
Button1 = Start
Button2 = Stop
Button3 = 10
Button4 = 50
Button5 = 100
Button6 = 250
Button7 = 500
Button8 = 1000
Button9 = Video On
Button10 = Video Off
textbox Properties:
textbox 1= FileDIR text: C:\ScreenREC\
textbox 2= FileNUM text: 0
textbox 3= FileType text: .JPG
Button Properties:
Button1Name: REC
Button2Name: STP
Button3Name: INT10
Button4Name: INT50
Button5Name: INT100
Button6Name: INT250
Button7Name: INT500
Button8Name: INT1000
Button9Name: Button9
Button10Name: Button10
Then
add form2 name it VideoScreenWindow
add 1picturebox name it VideoScreen
The result:
Form1: Code:
Public Class Form1
Code: Select all
Private Sub RECScreen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RECScreen.Tick
'The PlayBack Part of the program.
If CheckBox1.Checked = True Then
Dim DirectoryA As String = FileDIR.Text
Dim Frame0 As String = FileNUM.Text
Dim img0 As String = FileType.Text
FileNUM.Text = FileNUM.Text + 1
VideoScreenWindow.VideoScreen.Load(DirectoryA & Frame0 & img0)
Else
'The Recording Part Of the program.
Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
Dim DirectoryA As String = FileDIR.Text
Dim Frame1 As String = FileNUM.Text
Dim img1 As String = FileType.Text
FileNUM.Text = FileNUM.Text + 1
BMP.Save(DirectoryA & Frame1 & img1)
End If
End Sub
Code: Select all
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
VideoScreenWindow.Show()
End Sub
Code: Select all
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
VideoScreenWindow.Hide()
End Sub
Code: Select all
'Frame Rate, Playback Control & Recording Control
Private Sub INT10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT10.Click
Label1.Text = "100 FPS"
RECScreen.Interval = "10"
End Sub
Private Sub INT50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT50.Click
Label1.Text = "20 FPS"
RECScreen.Interval = "50"
End Sub
Private Sub INT100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT100.Click
Label1.Text = "10 FPS"
RECScreen.Interval = "100"
End Sub
Private Sub INT250_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT250.Click
Label1.Text = "04 FPS"
RECScreen.Interval = "250"
End Sub
Private Sub INT500_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT500.Click
Label1.Text = "02 FPS"
RECScreen.Interval = "500"
End Sub
Private Sub INT1000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT1000.Click
Label1.Text = "01 FPS"
RECScreen.Interval = "1000"
End Sub
Code: Select all
Download:'Stop or Rec/Play Recording(s)
Private Sub REC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REC.Click
RECScreen.Enabled = True
FileNUM.Text = "0"
End Sub
Private Sub STP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STP.Click
RECScreen.Enabled = False
End Sub
End Class
This file is hosted off-site.
You do not have the required permissions to view the files attached to this post.
Last edited by volttide on Sun Mar 20, 2011 3:32 am, edited 1 time in total.
I am 100% sure I saw this on some other website. And if it wasn't you who posted it, then you really should give credits...
Mods say that we should give -reps for such reasons but I don't want to let you down. Discouraging new members is a bad thing you know.
Mods say that we should give -reps for such reasons but I don't want to let you down. Discouraging new members is a bad thing you know.
usman55: The one who make this in the first time is "theusernameisfbiagent" in you tube
Chaos, the same statement can be made about any other program made.
ive made 1 like this but i made it better with recording mouse and mouse background and region if u make it like that ill buy it
Well done volttide, you did a good job. Thanks for sharing your ideas. cooll; cooll; cooll;
RonaldHarvey wrote:Well done volttide, you did a good job. Thanks for sharing your ideas. cooll; cooll; cooll;Your welcome
Copyright Information
Copyright © Codenstuff.com 2020 - 2023