- This topic has 304 replies, 5 voices, and was last updated 1 year ago by mauricem.
-
AuthorPosts
-
October 22, 2021 at 8:36 am #100558ghostrideroftheniteMember
maybe possible to add (LaunchWMP Procedure Launches the specified file in Windows Media Player.) some how to each command button that has youtube links already and send to mediaplayer? then some how capture that and show on cam?
October 22, 2021 at 8:44 am #100559ghostrideroftheniteMembermaybe something like this with some changes i’m not sure your the expert im not even a amature hahahah
‘ Launch WMP
If Nz(Me.txtPath, “”) = “” Then
MsgBox “Please specify a file to play.”
Me.txtPath = mcstrSamp
Me.txtPath.SetFocus
Else
LaunchWMP (Me.txtPath)
End If
End SubOctober 22, 2021 at 10:10 am #100565ghostrideroftheniteMemberlol don’t know should be simple to add but havent figured it out yet
October 22, 2021 at 12:06 pm #100579ghostrideroftheniteMemberhmmmmmmmmm so if i add all music links into a text file i maybeale to refrence it and open in vb6 media player hmmmmmmmmmm
October 22, 2021 at 12:11 pm #100581ghostrideroftheniteMemberhttps://www.vbforums.com/showthread.php?842193-Read-text-file-from-website-VB6 but will it open in windows media player hmmmmmmmmmm my head hurts hahahah thinking too much
October 23, 2021 at 11:30 am #100668ghostrideroftheniteMemberi’m trying find way to make user selected font size in the trivia i figured out color from your code but not select font size
Private Sub Command13_Click()
RichTextBox2.SelFontSize = 12
End SubPrivate Sub Command4_Click()
Form5.Show
End SubPrivate Sub Command6_Click()
On Error GoTo Error_Event:
CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color
Error_Event:
Exit Sub
End SubOctober 23, 2021 at 11:50 am #100670ghostrideroftheniteMemberhow do i add this in the control button Font size like the color palate hmmmmmmmmmmm
October 23, 2021 at 12:32 pm #100674ghostrideroftheniteMemberi figured it out lol
Private Sub Command12_Click()
On Error GoTo Error_Event:
CommonDialog1.ShowFont
RichTextBox1.SelFontSize = CommonDialog1.FontSize
Error_Event:
Exit Sub
End SubOctober 23, 2021 at 1:45 pm #100679ghostrideroftheniteMemberive fixed few things and added color and font palets seems to work perfect thanks alot got idea from your trivia bot just modified it some hahahahah
still need to make trivia work and capture youtube video
October 24, 2021 at 11:28 am #100768ghostrideroftheniteMemberShell = WindowsMediaPlayer1(“https://www.youtube.com/v/B9FzVhw8_bY&list”) doesnt work or not adding correctly hahahahah I really need Master Coder like you Help
October 25, 2021 at 10:32 am #100864ghostrideroftheniteMemberpossible way to start trivia I need examine more and ask Robin also he Office expert
https://stackoverflow.com/questions/5864160/code-to-loop-through-all-records-in-ms-access
October 25, 2021 at 12:45 pm #100870ghostrideroftheniteMemberhmmmmmmmmmm or this
Private Sub Command7_Click()
Dim ourDatabase As Database
Dim ourRecordset As Recordset
Dim ourDatabase As Object
Set ourDatabase = Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\GrimReaper\Desktop\NewBot Project files\Complete 80 Languages New MDB files 22 may 14\” & Form4.Language & “.mdb”
Set ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)Do Until ourRecordset.EOF
MsgBox ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)
ourRecordset.MoveNext
LoopEnd Sub
but stil not working still trying
October 26, 2021 at 1:00 pm #100983ghostrideroftheniteMemberi tried add code to form4 from form1 so could manually put questions but not add right some how dumb hillbilly i am lol
October 26, 2021 at 1:15 pm #100986ghostrideroftheniteMemberhmmmmmmmmmmm maybe add combo1 box top trivia to join room?
October 26, 2021 at 1:21 pm #100987ghostrideroftheniteMemberi add comobox all forms now and copy code not work arggggggggggg
-
AuthorPosts
Related
- You must be logged in to reply to this topic.