Strong Major
Posts : 1554 Reputation : 13 Age : 28 Join date : 2009-09-22 Location : In A Little Town With $%^& To Do - - -
| Subject: Strong's QwikNotes v1 :] Sun Sep 12, 2010 2:56 am | |
| Just was messing around in vb6 for a school project and came up with this - Code:
-
http://www.virustotal.com/file-scan/report.html?id=3efcbdc5d70cfaaacfc1feaf5f8ac667c717385d1be9a562a6c44f6a967de819-1284270618 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
| |
|
Guest Guest
| Subject: Re: Strong's QwikNotes v1 :] Sun Sep 12, 2010 11:11 am | |
| How is that related to a school project |
|
Strong Major
Posts : 1554 Reputation : 13 Age : 28 Join date : 2009-09-22 Location : In A Little Town With $%^& To Do - - -
| Subject: Re: Strong's QwikNotes v1 :] Sun 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 | |
|
Strong Major
Posts : 1554 Reputation : 13 Age : 28 Join date : 2009-09-22 Location : In A Little Town With $%^& To Do - - -
| Subject: Re: Strong's QwikNotes v1 :] Sun Sep 12, 2010 3:21 pm | |
| Got the mp3 player working :]] | |
|
Lee Senior Member v.5
Posts : 1523 Reputation : 7 Age : 32 Join date : 2009-09-16 Location : Mississippi
| Subject: Re: Strong's QwikNotes v1 :] Sun Sep 12, 2010 3:22 pm | |
| | |
|
Guest Guest
| Subject: Re: Strong's QwikNotes v1 :] Sun 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 |
|
Strong Major
Posts : 1554 Reputation : 13 Age : 28 Join date : 2009-09-22 Location : In A Little Town With $%^& To Do - - -
| Subject: Re: Strong's QwikNotes v1 :] Sun 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 | |
|
Guest Guest
| Subject: Re: Strong's QwikNotes v1 :] Sun Sep 12, 2010 10:33 pm | |
| good good, activison would be better in my opinion..... |
|
Strong Major
Posts : 1554 Reputation : 13 Age : 28 Join date : 2009-09-22 Location : In A Little Town With $%^& To Do - - -
| Subject: Re: Strong's QwikNotes v1 :] Mon 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 ^_^ | |
|
Sponsored content
| Subject: Re: Strong's QwikNotes v1 :] | |
| |
|