codeorder

[QUOTE=bhagawatshinde;1701616]Try this, dateTimePicker1.Format = Custom dateTimePicker1.ShowUpDown = True dateTimePicker1.Customformat = h[/QUOTE] [CODE] With DateTimePicker1 .Format = DateTimePickerFormat.Custom .ShowUpDown = True '// .CustomFormat = "h" '// 12Hour.day .CustomFormat = "H" '// 24Hour.day MsgBox(.Value.Hour) End With[/CODE]

I would personally use a File(possibly .txt or .ini) for I personally like having the option to locate my Default WebBrowsers ToolBar links, etc., and be able to view them just by browsing my.p.c..

Try loading/saving the password to a File or My.Settings. [URL="http://www.daniweb.com/software-development/vbnet/threads/312128/1335997#post1335997"]http://www.daniweb.com/software-development/vbnet/threads/312128/1335997#post1335997[/URL] I would encrypt the password a little, with something as simple as: [URL="http://www.daniweb.com/software-development/vbnet/threads/375789/1617323#post1617323"]http://www.daniweb.com/software-development/vbnet/threads/375789/1617323#post1617323[/URL] Hope this helps.:)

How do you plan to:>>check if a line in the RTB = 7 .Button.Click?, rtb.Click?, waving your hand?

See if this helps to get you started. [B]1.Panel[/B] [CODE]Public Class Form1 Private arDummyUsers() As String = {"dummy 1", "dummy 2", "what the h.ll, another dummy xD"} Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With Panel1 .BackColor = Color.LightSteelBlue .AutoScroll = True '// Allows scrollbars if Controls …

See if this helps to get you started. [B]1.TextBox,1.Button,1.ListBox,1.ProgressBar[/B] [CODE]Imports System.IO Public Class Form1 Private myCoolFilesFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\vb.samples\" Private sT As String = Nothing Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click searchFilesForCoolWords(myCoolFilesFolder, TextBox1.Text, ListBox1) End Sub Private Sub searchFilesForCoolWords(ByVal selCoolFolder As String, ByVal …

[COLOR="Red"]This thread is solved[/COLOR] and no solution? :(

I'm not quite certain as to exactly what the issue is, as [B]bluehangook629[/B] mentioned about the broken.link, though here's a suggestion that seems to work w/Forms and graphix on them. Set the Form's Properties of "DoubleBuffered" to True. It might help w/the rendering, If rendering is an issue.

[B]Question 1[/B], check [B]line.25[/B]. If you want to keep score up to date and Not constantly resetting it's self to "0" before it adds a +1 to it, .[B]Remove the line[/B]. Hope this helps. Almost missed this. :D [B]Line.59[/B], same issue. .[B]Remove it[/B] and your score should update as needed.

See if this helps. [B]1 ComboBox (with items as stated in your post)[/B] [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With ComboBox1 '//-- set for AutoComplete. .AutoCompleteSource = AutoCompleteSource.CustomSource .AutoCompleteMode = AutoCompleteMode.SuggestAppend '--\\ AddHandler .Validating, AddressOf cmb_Validating '// add ComboBox to Validating …

Not sure if this helps, though I did notice it in an online.thread a while ago and it has been w/.Me ever since; in mind, Not programming(for now at least). [CODE]Public Class Form1 Private sTemp As String Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load sTemp = "some …

[CODE]Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click With Form2 .TextBox1.Text = TextBox1.Text .Show() End With End Sub End Class[/CODE]

[B]See if this helps to load.File into Array.[/B] [CODE]Imports System.IO Public Class Form1 Private myNamesFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "myNamesFile.txt" Private arFileLines() As String = Nothing Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load If File.Exists(myNamesFile) Then arFileLines = File.ReadAllLines(myNamesFile) MsgBox(arFileLines(1)) '// get line.2 from File. End …

.see if this helps. [CODE]Imports System.IO Public Class Form1 Private myFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\test.txt" Private arFileLines() As String = Nothing Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click myCoolSub() End Sub Private Sub myCoolSub() If File.Exists(myFile) Then arFileLines = File.ReadAllLines(myFile) For i As Integer = …

See if this helps. [CODE]Public Class Form1 Private sNBSP As String = " " Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With TextBox1 .Text = "T" & sNBSP & "E" & sNBSP & "S" & sNBSP & "T" End With End Sub Private Sub Button1_Click(sender As System.Object, e …

.a bit.confusing, though somewhat I have an idea. To clear this up for me and possibly others, do you want to type in rtb(RichTextBox) and Then change font after?.orElse do you want to always have line.1 w/(any font, size 72, bold) and line.2 w/(any font, size 48, Italic)? orElse btn.Click …

.am Not a db(database).coder, though see if [URL="http://www.daniweb.com/software-development/vbnet/threads/153109"]this [/URL]helps andAlso [URL="http://www.daniweb.com/search.php?q=add+sql+to+vb.net"]this[/URL].:)

See if this helps. [CODE]Public Class Form1 Private arCmbItems() As String = {"full", "installment"} '// ComboBox.Items. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With ComboBox1.Items .Add(arCmbItems(0)) : .Add(arCmbItems(1)) '// add .Items. End With End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) …

See if this helps, [B]2Buttons[/B].needed. [CODE]Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With Button1 : .Text = ".open" : End With : With Button2 : .Text = ".fileName" : .Width += 123 : End With '// FOR TESTING. End Sub Private Sub Button1_Click(sender As …

See if this helps. [B]1 ComboBox[/B] [CODE]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '//--- For testing purposes. Dim arTemp() As String = {"ComboBox1", "AutoCompleteSource", "AddRange", "Items", "With", "End With"} ComboBox1.Items.AddRange(arTemp) '---\\ '============================== '//These options can be located in the ComboBox's Properties. ComboBox1.AutoCompleteSource …

.thanx for p.m. w/link to thread; will try to figure out a better way to sort.items and reply; though in the mean.while, I hope that others will try to provide possible solutions since those always seem to help for such threads as this.:)

>>What can be wrong? See if this helps.:) [CODE] Try Do you actually have a question? .no.Error here msgbox("web.waste.it") End Try[/CODE]

Post some scoreFile.txt content andAlso add a few more details regarding the dates used. I just woke up and w/out a hangover, it is difficult to make sense about: .If 2dates passed, use the most recent date of the 2? .What happens if 3+ dates passed? .Who adds the dates …

>>The problem is its not removing the File names that are stored If it is for ListBox2, to have items removed, you need to loop backwards thru the ListBox and remove the .Items. [CODE] With ListBox2 For i As Integer = .Items.Count - 1 To 0 Step -1 .Items.Remove(.Items(i)) Next …

.happy late.b.day?xD Ran across this thread while locating "[ICODE]csgal[/ICODE]" on a search to send "[ICODE]the queen[/ICODE]" a p.m.. As for making it to your b.day Dani, not happening! I found this today and this thread was started in...sec, scrolling up.. [ICODE]:D[/ICODE]... .k., done scrolling back down and I got [ICODE]Sep …

See if this helps. [CODE] Private Sub loadFile(ByVal myCoolSelectedFile As String) If IO.File.Exists(myCoolSelectedFile) Then Process.Start(myCoolSelectedFile) Else MsgBox("This file does not exist.") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click loadFile("C:\someFile.someExtension") End Sub[/CODE]

See if this helps. [URL="http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/969b32ee-e055-4569-bc76-7a19e7daf3c7"]http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/969b32ee-e055-4569-bc76-7a19e7daf3c7[/URL]

Is this another "cheat the world so I can make a few pennies auto.clicking links" thread?

[CODE] Private Sub MaskedTextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.Validated MsgBox(".use this Event to .Validate a MaskedTextBox.", MsgBoxStyle.Information) End Sub[/CODE]

Have you tried adding the Form's.Name just prior to your [iCODE]Cmd_New.Enabled...[/iCODE]? Example: [iCODE]Form1.Cmd_New.Enabled = False[/iCODE]

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 With WebBrowser1 '// FOR.TESTING Dim sT As String = "<a style=""position: absolute; width: 300px; text-align: right; height: 30px; top: 10px; right: 20px; color: rgb(255, 255, 255); font-weight: bold; font-size: 16px;"" id=""skip_button"" …

>>b. The first character in every sentence must be capitalized,... [CODE] With TextBox1 .Text = StrConv(.Text, VbStrConv.ProperCase) End With[/CODE] >>d. Your program must include "word count" function [CODE] With TextBox1 MsgBox(.Text.Split(" "c).Length.ToString & " totally.noobed words in this WordsCount", MsgBoxStyle.Information) End With[/CODE] >>I don't even know where to start with …

In order to obtain the proper Parameters for your Event Procedure... [CODE](ByVal sender As System.Object, ByVal e As System.EventArgs) ' <--//--- Parameters ---//--[/CODE] ...locate a similar control from the Toolbox and select your event for it. For this example, I will use the "MouseDown" Event of a Button. I added …

See if this helps to create Dynamic.TextBoxes on a Form. [CODE]Public Class Form1 #Region "----===----===----===----- myCoolDYNAMICS -----===----===----===----" Private Sub createCoolTextBoxes() '// # at end of TextBox, location from Left to Right, location from Top to Bottom. Dim iCoolNumberForName As Integer = 1, iLeftLocation As Integer = 5, iTopLocation As Integer …

See if [URL="http://www.daniweb.com/forums/thread325531.html"]this thread[/URL] helps.

.not tested, though I hope it helps. [CODE]Public Class Form1 Private CellID1(), CellID2(), CellID3(), CellID4(), CellID5(), CellID6(), CellID7(), CellID8(), CellID9(), CellID10() As String Private MapItems(20) As String Private i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Select Case i Case 0 setCells(New Array() …

[CODE]Process.Start(Path.GetDirectoryName(xsM)) [/CODE] [ICODE]xsM = String[/ICODE] with a [ICODE]FullPath[/ICODE] of a .File. .i would like to load win.explorer with [ICODE]that.File.Selected=True[/ICODE]. .thanx.in.advance.

[LIST] [*]How are you viewing and getting the innerHtml content of the website, from a vb.net WebBrowser? [*]What do you mean by dynamic, the text is not in the original Html file, but added from something like JavaScript once the page is loaded? [/LIST]

[CODE]Me.ComboBox1.Items.Add("Form1") Form2.ComboBox1.Items.Add("Form1")[/CODE]

See if this helps. [CODE] Private sTemp As String = Nothing '// TEMP String. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sTemp = "" '// clear for new input. For Each myCoolTextBox In New TextBox() {TextBox1, TextBox2, TextBox3} '// your TextBoxes. sTemp &= myCoolTextBox.Text '// …

See if this helps to terminate the application from any Form. [CODE]Public Class Form1 #Region "----===----===----===----- EVENT HANDLERS -----===----===----===----" Private Sub _myCoolForms_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Application.Exit() End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each frm In …

See if this helps to get you started. [CODE]Public Class Form1 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyData Case Keys.Up Me.Cursor = Cursors.WaitCursor End Select End Sub Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp Select Case e.KeyData …

See if this helps. [CODE]Public Class Form1 Private WithEvents cmCool As New ContextMenuStrip Private sTemp As String = "myCool.exe" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With WebBrowser1 .IsWebBrowserContextMenuEnabled = False '// disable WebBrowser ContextMenu. cmCool.Items.Add(sTemp) '// add item to your ContextMenu. .ContextMenuStrip = cmCool …

Why not store the items of each [ICODE]ComboBox [/ICODE]into an [ICODE]ArrayList[/ICODE] and .Close the Form if no use for it?

>>Guys I'm overwhelmed of this code you have given to me. Is there no other simpler codes out there? But anyway, thank you. .See if this helps. [URL="http://www.daniweb.com/software-development/vbnet/threads/348154/1478546#post1478546"]http://www.daniweb.com/software-development/vbnet/threads/348154/1478546#post1478546[/URL]

Also, see if this helps to extract data from a String or .Text. [CODE] With TextBox1 .Text = "aaa bbb ccc <e2>code</e2> aaa bbb ccc" Dim iStartIndex As Integer = .Text.IndexOf("<e2>") + 4 '// +4 to exclude the "<e2>" characters. '// .IndexOf(char./string to locate, Start search from this Index.) Dim …

[B]Mitja Bonca[/B], what exactly is the code you posted supposed to do other than [B]error?[/B] [B]bukk123[/B], see if this helps as well. [CODE] With ComboBox1 If Not .SelectedIndex = -1 Then '// if item selected, since -1 ='s No item selected. With .SelectedItem.ToString.Split(" "c) '// .Split by " " and... …

Also, see if this helps. [CODE] Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged With ListBox1 If .Items.Contains(TextBox1.Text) Then .SelectedItem = TextBox1.Text Else .SelectedIndex = -1 End With End Sub[/CODE]

See if this helps. [CODE] Private Sub FirstName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirstNameTextBox.TextChanged FirstNameTextBoxString = FirstNameTextBox.Text setFullName() End Sub Private Sub LastName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LastNameTextBox.TextChanged LastNameTextBoxString = LastNameTextBox.Text setFullName() End Sub Private Sub setFullName() FullNameTextBoxString = FirstNameTextBoxString & " " …

Updated code from [URL="http://www.daniweb.com/software-development/vbnet/threads/389476"]your other thread[/URL]. [B]1 Button, 1 ProgressBar[/B] [CODE]Imports System.IO Public Class Form1 Private sTemp1, sTemp2 As String '// TEMP.Strings, used as needed. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim fbd As New FolderBrowserDialog : sTemp1 = "" : sTemp2 = "" With fbd …