codeorder

You will also need to have your app. know what to do with the file once it is assigned to load it. [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each arg As String In My.Application.CommandLineArgs MsgBox(arg) '// get full path of …

Here's something using a .txt file. [CODE=text]codeorder:myCoolPassword[/CODE] Save that text or any text in a file, mine is "C:\loginCredentials.txt". Make sure you separate the username and password with a ":". And for the code, see if this helps. [B]1 Button, 2 TextBoxes[/B] [CODE]Public Class Form1 Private myLoginCredentialsFile As String = …

See if this helps. [CODE] Dim lvItem As New ListViewItem(TextBox1.Text) '// declare new ListView item and set TextBox.Text as item.Text. With lvItem.SubItems .Add(ComboBox1.Text) '// SubItem 1 for Column 2. .Add(ComboBox2.Text) '// SubItem 2 for Column 3. End With ListView1.Items.Add(lvItem) '// add item to ListView.[/CODE]

See if this helps. [URL="http://www.daniweb.com/software-development/vbnet/code/351456"]http://www.daniweb.com/software-development/vbnet/code/351456[/URL]

Why not use a TabControl and remove the TabHeaders on Form.Load?

>>...play a sound that is in your Resource folder [URL="http://www.daniweb.com/software-development/vbnet/threads/46514"]http://www.daniweb.com/software-development/vbnet/threads/46514[/URL]

[iCODE]Like[/iCODE] see if this helps.:D [URL="http://www.daniweb.com/software-development/vbnet/threads/376428/1627750#post1627750"]http://www.daniweb.com/software-development/vbnet/threads/376428/1627750#post1627750[/URL]

See if this helps. [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With TextBox1 .Text = "123|456" '// FOR TESTING. For Each c As Char In .Text '// loop thru all char.s. If Char.IsDigit(c) Then .Text = .Text.Replace(c, "*") '// .Replace char. with your char.. …

See if this helps. [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click setPanelVisibility(Panel2, Panel1, Panel3) End Sub Private Sub setPanelVisibility(ByVal visiblePanel As Panel, ByVal notVisiblePanel1 As Panel, ByVal notVisiblePanel2 As Panel) visiblePanel.Visible = True notVisiblePanel1.Visible = False notVisiblePanel2.Visible = False End Sub[/CODE]

[URL="http://www.daniweb.com/forums/thread21695.html"]Final year project title[/URL] [URL="http://www.slideshare.net/brainrichtech/ieee-project-titles-2009-2010-brainrich-final-year-projects"]Brainrich Final Year Projects[/URL]

How's this for a picture? [COLOR="Red"]Forbidden You don't have permission to access /software_screenshot/full/240697-Online_Rental_System.jpg on this server.[/COLOR]

See if this helps. [CODE] Dim x As String = "123.4567" x = x.Substring(0, x.IndexOf(".") + 3) MsgBox(x)[/CODE] Btw, I believe Val is vb6 term and might get outdated soon.

You said "easy", correct?:D [CODE] '// encrypt. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click With TextBox1 .Text = .Text.Replace("a", "z").Replace("b", "y").Replace("c", "x") End With End Sub '// decrypt. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click With TextBox1 .Text = .Text.Replace("z", "a").Replace("y", "b").Replace("x", "c") End …

View my post in this thread. [URL="http://www.daniweb.com/forums/thread306269.html"]http://www.daniweb.com/forums/thread306269.html[/URL]

See if this helps. [CODE]Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sTemp As String = "1,2,3,4,5" Dim iIndex As Integer = getIndex(sTemp, ","c, 3) With sTemp MsgBox(.Substring(0, iIndex)) MsgBox(.Substring(iIndex + 1)) End With End Sub Private Function getIndex(ByVal myString As String, …

Why ask us? Make a copy of a .exe, load that in your Hex Editor, then delete away and try to run the copy. Do let us know how it goes.:)

You can also do it all in one line of code. Keeps fingers happy. :D [CODE]RichTextBox1.Text = IO.File.ReadAllText(Open.FileName)[/CODE]

>>Is it possible to insert an item into a combobox that is data bound? From what I know, not possible. Otherwise, see if this helps. [CODE] Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim x() As String = {"1", "2", "3"} '// Array for testing. ComboBox1.DataSource = …

See if this helps. [CODE] Private ar1(3) As String Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load MsgBox("current Array.Length: " & ar1.Length) ReDim Preserve ar1(ar1.Length + 4) '// increase by 5, since Arrays start at 0, not 1 and .Length starts at 1. MsgBox("ReDim'ed and New Array.Length: " …

"DUDE!!!", what's the hurry, we're not getting paid here. :D See if this helps. [CODE] If Not CType(Me.Controls(TextBox1.Text), LinkLabel) Is Nothing Then With CType(Me.Controls(TextBox1.Text), LinkLabel) .BackColor = Color.Orange End With End If[/CODE] Nice app. btw.:)

See if this helps. [CODE]Public Class Form1 Private bSendToPrinter As Boolean = False Private Sub newScaleItem() '// code here to get item when placed on scale. '// If Not yourScale.Weight=0.0 Then bSendToPrinter = True printScaledItem() '// End If End Sub Private Sub printScaledItem() If bSendToPrinter Then bSendToPrinter = False '// …

I made this for someone back in March and it works with 4 Columns in a ListView. 1 ListView needed for testing. [CODE]Option Strict On Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With ListView1 .Columns.Add("FirstName", 100) : .Columns.Add("LastName", 100) : .Columns.Add("Age", 100) …

Which line is giving you the error? >>...the control rows after the removed row should be changed so it's still in sequential order. Sequential order for the # at the end of each control's name or just moving the rows under the delete row up?

See if this helps. [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '// when adding new row of controls, add a Handler for your PictureBoxRemove. AddHandler PictureBoxRemove1.Click, AddressOf PictureBoxRemove_Click 'AddHandler PictureBoxRemove2.Click, AddressOf PictureBoxRemove_Click 'AddHandler PictureBoxRemove3.Click, AddressOf PictureBoxRemove_Click End Sub Private Sub PictureBoxRemove_Click(sender As …

I wrote this a while ago. Not much to helping you learn what those options are, just how to use IntelliSense a little better. Hope it helps. :) [URL="http://www.codeorder.net/pages/tutorial%20chapter/code-efficiently.html"]http://www.codeorder.net/pages/tutorial%20chapter/code-efficiently.html[/URL]

I believe that lines 1,2, and 10, should all start with Public, not Private. Line17 should be:[iCODE]frmMenu.intX = 5[/iCODE], if intX is a Public declaration.

See if this helps. [CODE]Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Not Module1.sUserKeptAsPermanent = Nothing Then Form2.Label1.Text = sUserKeptAsPermanent Else sUserKeptAsPermanent = TextBox1.Text Form2.Label1.Text = Module1.sUserKeptAsPermanent End If Form2.ShowDialog() End Sub End Class[/CODE] [CODE]Module Module1 Public sUserKeptAsPermanent As String = Nothing Public user1 …

See if this helps. [CODE] Dim myEntireCoolString As String = "(abc)random text here(cba)" '// your string. Dim xiStartIndex As Integer = myEntireCoolString.IndexOf("(abc)") + 5 '// locate the start Index. Dim xiEndIndex As Integer = myEntireCoolString.IndexOf("(cba)", xiStartIndex) '// locate the end Index. Dim myFoundCoolString As String = myEntireCoolString.Substring(xiStartIndex, xiEndIndex - xiStartIndex) …

Hello everyone. I'm new to this forum and PHP in general. I finally got the nerve to tackle a mySql Database on my website's server, added columns and a few values, although I cannot seem to find any online help to retrieve the values from the database table. Here is …

Also, see if this helps. [CODE] Dim sTemp As String = "a_b_c_d" '// your String. Dim arTemp() As String = sTemp.Split("_"c) '// .Split String into Arrays. For Each itm As String In arTemp '// loop thru Arrays. '// find your Array and get value. If itm.StartsWith("c") Then MsgBox(itm) Next[/CODE]

See if this helps. [CODE] Protected Sub pullUpChildRecords_Click(ByVal sender As Object, ByVal e As EventArgs) Handles pullUpChildRecords.Click If Not childIDText.Text = "" Then MsgBox("Value cannot be empty in TextBox") Else '// run code here. End If End Sub[/CODE] >>I keep getting the error "Object reference not set to an instance …

Creating your own custom Message Box is probably the only way to add an image to it. Check out this link and locate Custom Message Boxes. [URL="http://visualbasicnet.weebly.com/message-boxes.html"]http://visualbasicnet.weebly.com/message-boxes.html[/URL]

Seems that line 13 is causing the error since it probably is an Array and you need to have an index for which Array to get the value from, not the entire Array. Try this: [CODE]MsgBox(movieArray(a))[/CODE]

If you just need to get the "n" value, see if this helps. [CODE] Dim iSelectedN As Integer = 0 '// stores the "n" value for use. For n As Integer = 1 To 24 iSelectedN = n '// set value from loop. With Form2.PictureBoxn Select Case f1data(n).countries Case "GER" …

See if this helps. [B]1 Timer[/B] [CODE]Public Class Form1 Private myRunningProcesses() As Process Private myAPPthatCrashes As String = "notepad", myKeyboardApp As String = "calc", bAppFound As Boolean Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With Timer1 .Interval = 1000 '// 1 sec. .Start() End With End Sub …

Use a BackgroundWorker. Here's a [URL="http://www.daniweb.com/software-development/vbnet/threads/348154/1479109#post1479109"]start[/URL].

Make what work?

To not have a similar # added to another TextBox, I used the .Validated event, which when the selected TextBox looses focus, it fires. To have this work, you need to add this line of code to each of your loops that creates a TextBox, possibly right before adding the …

See if this helps. [B]1 Timer, 1 TextBox[/B] [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick With TextBox1 '// check if Clipboad has Text and if Not TextBox …

I'm a Brawny user. Tough, durable, and pick your own size, my favorite. :D For a computer cleaner, check out this link. [URL="http://www.vbforums.com/showpost.php?p=3393703&postcount=11"]http://www.vbforums.com/showpost.php?p=3393703&postcount=11[/URL] .I only tested the cache and cookies and it worked well. If you need to view those folders, use this: [CODE] Dim myIEcacheFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.InternetCache) …

See if this helps. [B](1 Timer)[/B] [CODE]Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With Timer1 .Interval = 1000 '// set interval to 1,000, which is 1 second. .Start() '// start the Timer. End With End Sub Private arTimer() As String = Nothing Private Sub …

Mine is also returning a "The remote server returned an error: (404) Not Found." error. In such cases, a hidden WebBrowser could do the trick by extracting the .OutterText. [CODE]Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Cursor = Cursors.WaitCursor WebBrowser1.Navigate("http://www.vbforums.com/showthread.php?t=654378") End Sub Private Sub …

Use the If statements inside one another. [CODE] If 1 > 0 Then If 2 < 3 Then If 4 = 4 Then MsgBox("You Win! :)", MsgBoxStyle.Information) Else MsgBox("error", MsgBoxStyle.Critical) End If Else MsgBox("You Tie! :/", MsgBoxStyle.Information) End If Else MsgBox("You Loose! :(", MsgBoxStyle.Information) End If[/CODE]

[CODE] With TextBox1.Text.ToLower '// use .ToLower to NOT make it Case SensITive. If .Contains("something") Then MsgBox("Found.") Else MsgBox("Not Found.") End With[/CODE]

Panels are in the Toolbox. I would use a TabControl since it is easier to work with in .Designer and if needed, hide the tabs. [CODE] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '// Hide Tab Headers in TabControl. With TabControl1.TabPages(0) TabControl1.Region = New Region(New …

This might help also. Just change the ListBox to a ComboBox. [CODE] Dim myCoolFolder As String = "C:\!vbTemp\" '// your folder. For Each myCoolFile As String In My.Computer.FileSystem.GetFiles _ (myCoolFolder, FileIO.SearchOption.SearchTopLevelOnly, "*.*") ListBox1.Items.Add(IO.Path.GetFileName(myCoolFile)) '// add file name with extension. Next '// to search subfolders, change "SearchTopLevelOnly" to "SearchAllSubDirectories". '// to …

I located this online: [URL="http://www.softperfect.com/products/bandwidth/mainwindow.gif"]http://www.softperfect.com/products/bandwidth/mainwindow.gif[/URL] (full app. info [URL="http://www.softperfect.com/products/bandwidth/"]here[/URL]) Seems that the design for that imaged app., is a Menu, a ToolBar, and a ListView with columns. Also a StatusBar. Hope this helps with the interface design.

[QUOTE=Unhnd_Exception;1591693]Hey, Nice job down voting this for someone who was just trying to get some other ideas and perspective. How about next time you leave your name instead of dancing around like a twinkled toed douche bag. Unhnd[/QUOTE] Took care of it and gave you another fresh start as you …

[CODE] Dim arTemp() As String = "tree_ptr->sub.another->valu=3;".Replace("->", "~").Split("~"c) MsgBox(arTemp.Length - 1)[/CODE]

Check out [URL="http://www.daniweb.com/software-development/vbnet/threads/312128/1335997#post1335997"]this thread[/URL].