725 Posted Topics
Re: I did not watch the video, though I thought I'd supply a "watch youtube video with vb.net" solution. [B]1.WebBrowser,1.Button[/B] [CODE]Public Class Form1 Private iVidHeight As Integer = 500, iVidWidth As Integer = 800 Private iVidStyleVersion As Integer = 3 '// changes vid.style. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) … | |
Re: >>But Stopwatches cannot have a Tag component according to VB. Why not create a Array that stores something similar to a .Tag for the StopWatches and ReDim the Array each time you create them? | |
Re: See if this helps. [CODE] Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged For i As Integer = 1 To NamesArray.Length - 2 With NamesArray(i) If .NamesNumber = ComboBox1.SelectedIndex + 1 Then MsgBox(.FirstName & " " & .LastName & " #" & .NamesNumber) Exit For End If End … | |
Re: >>Actually, you were given a pretty dumb question. .confusing as well;must say, good teacher.:) | |
Re: 1.Add a TextBox To your Form And .add this to your code.window, type some.sh.t in the TextBox when app running, .Close app and .Reload. [CODE]Imports System.IO Public Class Form1 Private myFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\theCoolestFile.with.My.Own.File.Extension" Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing IO.File.WriteAllText(myFile, TextBox1.Text) End … | |
Re: [B]dayanand143[/B],[URL="http://www.jrsoftware.org/isinfo.php"]Try Inno Setup.[/URL] | |
Re: >>Is this the final conclusion why u asked me to test for zero rather than dividing it? .i think so As well. reason: Running the Try/Catch/etc., it sends the p.c. into shock Not just your tiny little app. Hope this helps.:) | |
Re: I'm completely confused about this issue. Are you trying to compare 2.files that contain file.paths of your 2.folders(1.file for each folder), and If similar file.names to Not count them? | |
Re: [B]Hah![/B] You got down.voted and I should down.vote your butt also for Not providing a solution and marking the thread as Solved. .Hopefully it is a lesson learned and Not taken offensively.:) | |
Re: Check out [URL="http://www.jrsoftware.org/isinfo.php"]Inno Setup[/URL]. | |
Re: This should help with adding a value and clicking the submit button in a wb(WebBrowser). [URL="http://www.daniweb.com/software-development/vbnet/threads/310090/1328780#post1328780"]http://www.daniweb.com/software-development/vbnet/threads/310090/1328780#post1328780[/URL] | |
Re: I have no idea(s) regarding "network.share", though here is a suggestion. Have a small sidekick.app installed on each user's p.c., that does the "copy and overwrite the existing application executable in the program files\app directory". I'm not sure how systems work with network.sharing, though there should be a folder somewhere, … | |
Re: Here's something to get you started. I found the following code [URL="http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/67843652-250d-4801-b72c-8b48b40d882a/"]here[/URL], just slightly modified by me to Not Return warnings/errors. [CODE] Public Function GetTaskbarLocation() As String Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds Dim working As Rectangle = Screen.PrimaryScreen.WorkingArea If working.Height < bounds.Height And working.Y > 0 Then Return "Top" … | |
Re: Use a .Substring. [CODE] Private sMain As String, iSi, iEi As Integer Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load sMain = "abcd<pre>some calculation here</pre>efg" '// your html.source. iSi = sMain.IndexOf("<pre>") + 5 '// locate your start.point. iEi = sMain.IndexOf("</pre>", iSi) '// locate end.point. MsgBox(sMain.Substring(iSi, iEi - iSi)) … | |
Re: I'll try to help, though you have to provide some defined.details, one thing at a time. | |
Re: See if this helps. [CODE]Public Class Form1 Private itms() As ListViewItem '// stores itms from ListView. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With ComboBox1.Items : For i As Integer = 1 To 12 : .Add(CStr(i)) : Next : End With '// load cmb(ComboBox). With ListView1.Items .Add(New … | |
Re: Since already in my code.snippets, see if this helps.:) [CODE]Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click TextBox1.Text = getCoolHttp("http://www.daniweb.com/members/codeorder/811140") End Sub Private Function getCoolHttp(ByVal selCoolUrl As String) As String Me.Cursor = Cursors.WaitCursor Try Dim myResponse As Net.HttpWebResponse = Net.HttpWebRequest.Create(selCoolUrl).GetResponse '// connect. Dim myStream As IO.Stream = myResponse.GetResponseStream() … | |
Re: >>DateTimePicker1.Value = "01/JAN/" & DateTimePicker2.Value.Year If you do not need to constantly change it to Jan.1st, see if this helps. [CODE] With DateTimePicker1 .Value = New Date(DateTimePicker2.Value.Year, .Value.Month, .Value.Day) End With[/CODE] | |
Re: Here's a start.up w/2 Forms. [CODE] Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Opacity = 0.5 Form2.Show(Me) '// keeps Form2 onTop of Form1. End Sub[/CODE] [CODE] Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.BackColor = Color.Azure '// set bg.color to some color you'll never … | |
Re: [B]AnkitGuru [/B]is correct. I would add a ProgressBar to your Form, have [iCODE]Me.Show()[/iCODE] in your main.Form's load event just prior to running all neccesary code that makes your app.tick, and would add a value here and there to the ProgressBar throughout that code. .ProgressBar just makes it more user friendly … | |
Re: >>all i want is to random pictures and the sounds associated on that pictures will be played... How do you plan to add the images and sounds to get recognized? .From a File?.From My.Resources?.Full.Paths coded into your app.? | |
Re: [CODE] '// TextBox. IO.File.WriteAllText("full.path of file here", TextBox1.Text) '// RichTextBox. RichTextBox1.SaveFile("full.path of file here", RichTextBoxStreamType.RichText) '// change ".RichText" to ".PlainText" If needed.[/CODE] Also, check if btnOk has been clicked before saving. [CODE] If SaveFile.ShowDialog = Windows.Forms.DialogResult.OK Then '// save :) End If[/CODE] | |
Re: Add a "cool" Parameter to your Sub. [CODE]Sub two(byval selCoolTextBox as TextBox) 'How to access TB here ?? or from anywhere in app domain msgbox(selCoolTextBox.text) End Sub[/CODE] And call it as: [CODE]private sub someBtn.Click two(TB) End Sub[/CODE] | |
Re: See if this helps to get you started. [B]1.Button[/B] [CODE]Imports System.IO Public Class Form1 #Region "-----===-----===-----===-----===-----=== Log chopping crap xD ===-----===-----===-----===-----===-----" Public myFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\user.log activity\" '// Folder for File(s). Private myLogFile As String = myFolder & "myCoolLogFile.txt" '// your.File. '// easier to write and understand … | |
![]() | Re: Start a new.project, add your wmp(WindowsMediaPlayer) to Form, Then modify code w/this. [CODE] Try '// wmp.code here. Catch ex As Exception MsgBox(ex.Message) '// displays error.msg and does not crash app. error.msg is not necessarly needed. End Try[/CODE] If you get an error.msg, post the result. ![]() |
Re: What exactly is the problem? .No values in ProgressBars? | |
Re: As [B]Phasma [/B]mentioned, a rtb(RichTextBox) would be the way to go; at least for a vb.noob. See if this helps. [B]1.rtb, 1.btn(Button)[/B] [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.KeyPreview = True '// keep.Focus on Form while typing. RichTextBox1.ReadOnly = True '// … | |
Re: [CODE] Dim x As String = "http://sasqas.com/sadasd=sdasd" MsgBox(x.Substring(0, x.IndexOf("=") + 1)) '// 0=start.index, x.IndexOf...=Length[/CODE] | |
Re: How are these sins:D present in the TextBox? 1 sin per each line?:D 2 or more sins per line?:D Or is it just a TextBox full of sins?:D with no hope of ever going to heaven.LMAOOO:D | |
Re: For such occasions as to getting new ideas towards creating an .app, I seem to find [URL="http://www.google.com/imghp?hl=en&tab=wi"]Google.Images[/URL] quite useful. [URL="http://www.google.com/search?tbm=isch&hl=en&source=hp&biw=1386&bih=807&q=financial+applications&gbv=2&oq=Financial+app&aq=0&aqi=g3g-m1g-S6&aql=&gs_sm=c&gs_upl=659l2550l0l4947l4l4l0l0l0l0l84l299l4l4l0"]http://www.google.com/search?tbm=isch&hl=en&source=hp&biw=1386&bih=807&q=financial+applications&gbv=2&oq=Financial+app&aq=0&aqi=g3g-m1g-S6&aql=&gs_sm=c&gs_upl=659l2550l0l4947l4l4l0l0l0l0l84l299l4l4l0[/URL] | |
Re: I am also quite unclear on your question; thus If you would like my further support for this.thread, do supply the neccessary and well defined.details. Otherwise, I will take leave and fly on my own w/out a radar, as always:). | |
Re: See if this helps. [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim tsTemp As TimeSpan = DateTimePicker2.Value - DateTimePicker1.Value '// get Date.Time difference. Dim iTemp As Integer = 0 Do Until iTemp = tsTemp.Days '// loop until.Equals the .Days difference. iTemp += 1 '// … | |
Re: "Code not working"? .you making fun of me? :D Since I recently posted to your other thread, hope it clarifies this one.:) [URL="http://www.daniweb.com/software-development/vbnet/threads/408271/1743532#post1743532"]http://www.daniweb.com/software-development/vbnet/threads/408271/1743532#post1743532[/URL] | |
Re: >>Right now i need your help for changing font of datagridview in VB.net 2008 Entirely different question; start a new.thread and mark this one as Solved. .thanks and welcome to the forum.:) | |
Re: .suggestion: Take a look into adding a WindowsMediaPlayer to the Form and just add controls on top of it. | |
Re: [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With New OpenFileDialog .Filter = "Only myCool Excel Files|*.xls;*.xlst" If .ShowDialog = Windows.Forms.DialogResult.OK Then MsgBox("tada") End If End With End Sub[/CODE] | |
Re: See if this helps. [B]1.Button andAlso you will need to set your "Original" Folder.Path.[/B] [CODE]Imports System.IO Public Class Form1 Private myDesktopFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" Private myOriginalFilesFolder As String = myDesktopFolder & "vb.samples - Copy\", _ myDestinationFilesFolder As String = myDesktopFolder & "TEMP\" Private Sub moveFiles(ByVal selOriginalLocationFolder As … | |
Re: See if this helps.:) [CODE]Public Class Form1 Private arCmbItems() As String = {"item 1", "item 2", "item etc.", "item.Else"} Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With ListBox1 .Items.AddRange(arCmbItems) '// add items to ListBox from String.Array. End With End Sub Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As … | |
Re: [B].see If this helps also: [URL="http://www.daniweb.com/software-development/vbnet/threads/404790/1730252#post1730252"]http://www.daniweb.com/software-development/vbnet/threads/404790/1730252#post1730252[/URL][/B] | |
Re: Since I'm Not a db.coder, I do not know of any other way to pursue this other than: [CODE]Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click With TextBox1 : .Text = replaceNewLine(.Text, True) : End With '// replace line.break w/String. End Sub Private Sub Button2_Click(sender … | |
Re: I just overlooked the last post of this thread and wanted to provide some code.clean up assistance. Hope it helps.:) [CODE]Imports System.IO Public Class Form1 Private myStrings(0 To 4) As String Private ofd As New OpenFileDialog, sfd As New SaveFileDialog Private Sub _Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) … | |
Re: Try Repairing/Reinstalling Visual Studios. Could be an internal issue w/VS, although... If this only happens in one project, cloning/restarting the project might and possibly will fix the issue. I personally would Reinstall(after saving my.Cool VS.Settings, If you got any), to get a new copy of VS. Hope this helps. | |
Re: .even If thread.solved, hope this helps. [CODE]Imports System.IO Public Class Form1 Private myCoolFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\test.txt" '// save. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click File.WriteAllText(myCoolFile, "your content here") End Sub End Class[/CODE] For every type of saving, I never bothered much w/the: [iCODE]StreamWriter[/iCODE] … | |
Re: What exactly is the issue? .moving the items up/down? .or selecting the previously selected.Item with a new Index? | |
Re: I would like to welcome.back yourself also.:D It's always a pleasure to have someone around with new.input towards the IT community.:) | |
Re: See if this helps. .you will need a Form3 w/a TextBox on it. [CODE]Imports System.IO Public Class Form1 Private myPasswordFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\myPasswordFile.txt" Private sPassword As String = Nothing '// string to hold your password. Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing File.WriteAllText(myPasswordFile, sPassword) … | |
Re: See If this helps. [CODE] Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MsgBox(xDate) MsgBox(xDate("dd")) End Sub Private Function xDate(Optional ByVal selDateFormat As String = "MM.dd.yyyy") As String Return Date.Now.ToString(selDateFormat) End Function[/CODE] | |
Re: See if this helps. [CODE] Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click With New Form3 '// Child.Form .MdiParent = Me '// Parent.Form .Show() '// get.results.:) End With End Sub[/CODE] | |
Re: Something simple, use a .txt File. This saves the File to Desktop. [CODE]Imports System.IO Public Class Form1 Private myCoolFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\myCoolBtnTextFile.txt" Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing File.WriteAllText(myCoolFile, Button1.Text) End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load If … | |
Re: See if this helps to load Form2 from Form1, into the MDI Form. [CODE]Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click With Form2 .MdiParent = myCoolMDIform '// set the MDI Parent for the Form. .Show() '// Load the Form. End With End Sub End Class[/CODE] … |
The End.