The Ownt Gaming Community
Welcome to The Ownt Gaming Community,

You are currently viewing our boards as a guest, which gives you limited access to viewing most discussions and other features of our website. By joining our free community, you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content, and access many other special features. Registration is fast, simple, and absolutely free, so please join our community today!

If you already have a account with us, simply log in.

Sincerely,
The Ownt Gaming Community Administration Team


**Please note that you must post an application and be accepted before you can put on Ownt Tags**
The Ownt Gaming Community
Welcome to The Ownt Gaming Community,

You are currently viewing our boards as a guest, which gives you limited access to viewing most discussions and other features of our website. By joining our free community, you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content, and access many other special features. Registration is fast, simple, and absolutely free, so please join our community today!

If you already have a account with us, simply log in.

Sincerely,
The Ownt Gaming Community Administration Team


**Please note that you must post an application and be accepted before you can put on Ownt Tags**
The Ownt Gaming Community
Would you like to react to this message? Create an account in a few clicks or log in to continue.

The Ownt Gaming Community

Welcome to the Ownt Gaming Community Forums!
 
HomeHomePageLatest imagesMemberlistRegisterLog in
Hello All!
The Forums have been archived
>>> Click Here <<<
To Read all about it

 

 Strong's QwikNotes v1 :]

Go down 
2 posters
AuthorMessage
Strong
Major
Major
Strong


Posts : 1554
Reputation : 13
Age : 28
Join date : 2009-09-22
Location : In A Little Town With $%^&amp;amp;amp;amp; To Do
Forum Administrator -
1000+ Posts -
Artist -

Strong's QwikNotes v1 :] Empty
PostSubject: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 2:56 am

Just was messing around in vb6 for a school project and came up with this Big Grin
Code:
http://www.virustotal.com/file-scan/report.html?id=3efcbdc5d70cfaaacfc1feaf5f8ac667c717385d1be9a562a6c44f6a967de819-1284270618
Strong's QwikNotes v1 :] Preview
http://www.mediafire.com/file/o0e6915e1dwasd9/Strongs_QwikNotes_V1.zip
P.s Ignore The Media Tab I'm Working On That Now :]

Code:


Private Sub QwiknotesV1_Change()

End Sub


Private Sub Combo2_Click()
Text1.FontName = Text2.Text
End Sub


Private Sub Label2_Click()
MsgBox "Made By Joseph ''Stronger'' Haley", vbInformation, "About!"
End Sub



Private Sub mnuPL_Click()
Dim filelocation As String

' show open box
    CommonDialog1.Filter = "(Media Files *.mp3*)|*.mp3*|"
    CommonDialog1.ShowOpen
   
    filelocation = CommonDialog1.FileName
 
' input files into text1.text

      CommonDialog1.FileName
    EOF (1)
    Loop
    Close #1
End Sub

Private Sub Timer1_Timer()
c = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = " " Then
c = c + 1
End If
''this line for checking two spaces
If Mid(Text1, i, 1) = " " Then i = i + 2
Next
Text2.Text = "Number Of Words In Textbox Is " & c + 1
End Sub



Private Sub mnuAB_Click()
If Text1.FontBold = True Then
Text1.SetFocus
Else
Text1.FontBold = True
Text1.SetFocus
End If
End Sub

Private Sub mnuAI_Click()
If Text1.FontItalic = True Then
Text1.FontItalic = False
Text1.SetFocus
Else
Text1.FontItalic = True
Text1.SetFocus
End If
End Sub

Private Sub mnuCLRBG_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub mnuDI_Click()
If Text1.FontItalic = True Then
Text1.FontItalic = False
Text1.SetFocus
Else
Text1.FontItalic = False
Text1.SetFocus
End If
End Sub

Private Sub mnuSave_Click()
Dim filelocation As String

' loads save as box
    CommonDialog1.Filter = "(All Files *.*)|*.*|(Html *.html)|*.html|(Notepad *.txt)/(Strong's QwikNotes *.txt)|*.txt"
    CommonDialog1.ShowSave
   
    filelocation = CommonDialog1.FileName
   
' append saves over file if it assists
    Open filelocation For Append As #1
        Print #1, Text1.Text
    Close #1

End Sub


Private Sub mnuOpen_Click()

Dim filelocation As String

' show open box
    CommonDialog1.Filter = "(All Files *.*)|*.*|(Text *.txt*|*.txt*|(Registry Files *.reg*|*.reg*|"
    CommonDialog1.ShowOpen
   
    filelocation = CommonDialog1.FileName
 
' input files into text1.text
    Open filelocation For Input As #1
   
Do Until EOF(1)

        Input #1, Data
        Text1.Text = ""
        Text1.Text = Text1.Text + Data + vbNewLine
    EOF (1)
    Loop
    Close #1

End Sub

Private Sub mnuAU_Click()
If Text1.FontUnderline = True Then
Text1.FontUnderline = False
Text1.SetFocus
Else
Text1.FontUnderline = True
Text1.SetFocus
End If
End Sub

Private Sub mnuColor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub mnuDB_Click()
If Text1.FontBold = True Then
Text1.FontBold = False
Text1.SetFocus
Else
Text1.FontBold = False
Text1.SetFocus
End If
End Sub

Private Sub mnuDU_Click()
If Text1.FontUnderline = True Then
Text1.FontUnderline = False
Text1.SetFocus
Else
Text1.FontUnderline = True
Text1.SetFocus
End If
End Sub

Private Sub mnuTest_Click()
End Sub

Back to top Go down
Guest
Guest




Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 11:11 am

How is that related to a school project Big Grin
Back to top Go down
Strong
Major
Major
Strong


Posts : 1554
Reputation : 13
Age : 28
Join date : 2009-09-22
Location : In A Little Town With $%^&amp;amp;amp;amp; To Do
Forum Administrator -
1000+ Posts -
Artist -

Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 12:46 pm

We had to make a simplce program in vb6 most people did a hello world project but i took it farther Big Grin
Back to top Go down
Strong
Major
Major
Strong


Posts : 1554
Reputation : 13
Age : 28
Join date : 2009-09-22
Location : In A Little Town With $%^&amp;amp;amp;amp; To Do
Forum Administrator -
1000+ Posts -
Artist -

Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 3:21 pm

Got the mp3 player working :]]
Strong's QwikNotes v1 :] V2
Back to top Go down
Lee
Senior Member v.5
Senior Member v.5
Lee


Posts : 1523
Reputation : 7
Age : 32
Join date : 2009-09-16
Location : Mississippi
1000+ Posts
CoD1 1.3 Player
CoD4 1.7 Player

Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 3:22 pm

Nice bro, looks good.
Back to top Go down
Guest
Guest




Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 9:21 pm

Lets see what do i see stronger doing later in life? two things, Either siting on his computer all day running a tech clan OR becoming the best computer programmer in the world Big Grin
Back to top Go down
Strong
Major
Major
Strong


Posts : 1554
Reputation : 13
Age : 28
Join date : 2009-09-22
Location : In A Little Town With $%^&amp;amp;amp;amp; To Do
Forum Administrator -
1000+ Posts -
Artist -

Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 10:15 pm

Oh ive tried fitting my college apps(im planning even though im freshman :] ) to either get a job at EA or Activision Big Grin
Back to top Go down
Guest
Guest




Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeSun Sep 12, 2010 10:33 pm

good good, activison would be better in my opinion.....
Back to top Go down
Strong
Major
Major
Strong


Posts : 1554
Reputation : 13
Age : 28
Join date : 2009-09-22
Location : In A Little Town With $%^&amp;amp;amp;amp; To Do
Forum Administrator -
1000+ Posts -
Artist -

Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitimeMon Sep 13, 2010 8:46 am

Thats what i said to myself until Infinity Ward's CEO's went to EA with modern warfare rights ^_^
Back to top Go down
Sponsored content





Strong's QwikNotes v1 :] Empty
PostSubject: Re: Strong's QwikNotes v1 :]   Strong's QwikNotes v1 :] Icon_minitime

Back to top Go down
 
Strong's QwikNotes v1 :]
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
The Ownt Gaming Community :: Main :: General Chat-
Jump to: