VB.NET Forum RSS Feed

VBScript : Multiple Line Syntax

Wed, 08 Feb 2012 00:08:52 -0800

If you are a newcomer of VBScript, you must be eager to learn how to write multiple line syntax in VBScript. Here you will learn what code or syntax you should exactly put in to create multiple lines in VBScript. This is required when your codes gets very long that need to be placed in multiple lines.

One good news for you guys is that Microsoft has already integrated a very special character as multiple line syntax or code. And the special character is the underscore sign ‘_’. The example below will show you how to write multiple line syntax of in VBScript using the underscore ‘_’ sign. The following example deals with a long written statement in which you will find that multiple lines are required to complete the code.

To read the full article and get access to the code click here.

VBScript : Multiple Line Syntax

Wed, 08 Feb 2012 00:03:33 -0800

Multiple Line Syntax in VBScript

Tue, 07 Feb 2012 14:42:48 -0800

Multiple Line Syntax in VBScript

Tue, 07 Feb 2012 14:36:15 -0800

Information on Building a pc and help in buying a motherboard ?

Mon, 06 Feb 2012 23:05:52 -0800

was wondering if you buy a certain motherboard if you have to buy the rest to match or is everything compatible. I want the pc for memory, photo edits web access music anyone have any idea's on what would be best to buy and what tower unit. Not expensive tho. Thanks

Rosetta Stone Arabic Version 3

Information on Building a pc and help in buying a motherboard ?

Mon, 06 Feb 2012 22:48:19 -0800

code for using microsoft Access DB in a network

Thu, 02 Feb 2012 00:51:37 -0800

Hi

I'm Rashid. i'm doing B.tech. I'm Developing a score board application. here i used ms accecc as my db. but now i want to use my spplication through a local network. actually i'm a beginner to vb.net. so now i need the code for connecting my bd through a network. somebody can help me?

I NEED HELP PLEASE..

Thu, 05 Jan 2012 10:06:02 -0800

label should be highlighted(changes color) when button is togl...it runs in form 1 but when I linked it to another form and type the same code,the togl button doesn't work....

please help me i need this for my project in school..thank you!!!

 If Inp(&H379) = default Then
        togl = True
        
    ElseIf Inp(&H379) = button_1 And togl Then
        cnt_button = cnt_button + 1
        If cnt_button = 6 Then cnt_button = 1
        togl = False
        
    ElseIf Inp(&H379) = button_2 And togl Then
        Select Case cnt_button               'Evaluate Number.
            Case 1: Form2.Show 1
            Case 2: Form3.Show 1
            Case 3: Form4.Show 1
            Case 4: Form5.Show 1
            Case 5: Form6.Show 1
        End Select
    
        togl = False
        
    ElseIf Inp(&H379) = button_3 And togl Then
        cnt_button = cnt_button - 1
        If cnt_button = 0 Then cnt_button = 5
        togl = False
    End If
    
    DoEvents
    
    Select Case cnt_button   ' Evaluate Number.
        Case 1:
            Call Default_color
            Label2.BackColor = &HFFFF00 'set back color....
        Case 2:
            Call Default_color
            Label3.BackColor = &HFFFF00
        Case 3:
            Call Default_color
            Label4.BackColor = &HFFFF00
        Case 4:
            Call Default_color
            Label5.BackColor = &HFFFF00
        Case 5:
            Call Default_color
            Label6.BackColor = &HFFFF00
    End Select

End Sub

Open word doc inside webBrowser control on Win7 machine

Tue, 03 Jan 2012 09:45:43 -0800

My application is in VB.NET and environment is Window XP. We are using WebBrowser control to display data of Word doc files i.e. we are opening word files always inside the WebBrowser control and then modifying word file using bookmarks by VB code.Our VB code is perfectly working. We are doing following changes in window registry via VB.NET code for temporary basis:
1)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Docum ent.8\

updating BrowserFlags value to H80000024
2)..HKEY_CLASSES_ROOT\Word.Document.8\

updating EditFlags value to 65536
3)..HKEY_CLASSES_ROOT\Word.Template.8\

updating EditFlags value to 65536
4)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Docum ent.12\

updating BrowserFlags value to H80000024
5)..HKEY_CLASSES_ROOT\Word.Document.12\

updating EditFlags value to 65536
6)..HKEY_CLASSES_ROOT\Word.Template.12\

updating EditFlags value to 65536

Now we are migrating environment from WinXP to Win7. I have following query for Win7 environment :
We do not have rights to change registry on Win7 machine , so without changing values of BrowserFlags and EditFlags , how word docs files will always open inside webBrowser control on win7 machine? Currently I am getting popup dialog box (Open/save/Cancel) for word doc on win7 machine while running application.I am attaching it.

I want to avoid it.Please help me to find the solution.

Attachment: Win7.JPG (17929 bytes | downloaded 9 times)

Open word doc inside WebBrowser control on Win7 machine

Tue, 03 Jan 2012 09:39:10 -0800

My application is in VB.NET and environment is Window XP. We are using WebBrowser control to display data of Word doc files i.e. we are opening word files always inside the WebBrowser control and then modifying word file using bookmarks by VB code.Our VB code is perfectly working. We are doing following changes in window registry via VB.NET code for temporary basis:
1)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Docum ent.8\

updating BrowserFlags value to H80000024
2)..HKEY_CLASSES_ROOT\Word.Document.8\

updating EditFlags value to 65536
3)..HKEY_CLASSES_ROOT\Word.Template.8\

updating EditFlags value to 65536
4)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Docum ent.12\

updating BrowserFlags value to H80000024
5)..HKEY_CLASSES_ROOT\Word.Document.12\

updating EditFlags value to 65536
6)..HKEY_CLASSES_ROOT\Word.Template.12\

updating EditFlags value to 65536

Now we are migrating environment from WinXP to Win7. I have following query for Win7 environment :
We do not have rights to change registry on Win7 machine , so without changing values of BrowserFlags and EditFlags , how word docs files will always open inside webBrowser control on win7 machine? Currently I am getting popup dialog box (Save/Open/Cancel) for word doc on win7 machine while running application. I am attaching it.

I want to avoid it.Please help me to find the solution.

Attachment: Win7.JPG (17929 bytes | downloaded 21 times)

Stomach help pls! 10 points beat answer!?

Mon, 02 Jan 2012 23:40:09 -0800

Ok,so I can't fall asleep...at about 11pm I started feeling sick...at about 12 I started gagging...I was coughing and felt like I was gonna puke until about 12:45 or so and had stomach aches (around my belly button and above) . But, in the last half hour I have had about 6 mugs of water( I'm 11 and will get in trouble if I spill water everywhere so, I use a mug)...at 1:20 I told my mom I feel sick and she said try to got to bed(she's pregnant,otherwise I would be tucked in bed with soup and tea). My dad has a bad cold and is sleeping down stairs so my mom and I don't get sick. I peed like 4 times after drinking the water ( a lot of pee). Any remedies( natural if possible)? Is it healthy to drink more water? I think I might get diarrhea because I started passing some gas. Pls answer with remedies(any kind ,but preferably natural)! Also answer my question "Did I drink to much water and can I drink more?". Also, if you have any sleeping suggestions for sleeping with stomach aches pls add that too!

PS
The mug is about the size of a cup(1 cup /measuring cup), maybe a little bigger....well of to pee again (time 5)...pls post anyyyyy remedies...I feel horrible! Thanks!

It is not my period...I have been laying down since 9:30 with my eyes closed and have done nothing but pee drink water and cough/gagg...I have now peed 6 times(I reported this question)...I drank the water once I stopped gagging, imagining that it could flush out system just so you know because some people asked me why I drank the water in the first place. I am on ya on my iPod touch but am viewing desktop version so I can post additional info and still lay in my bed.

Canada Goose 7950Y

Arrays + methods

Mon, 19 Dec 2011 10:35:46 -0800

Hi,

How can I put an Array with Doubled Capacity(in same output as below), at the moment I have added 3 methods. But not fully working. Values should be what the user is able to enter, and is memorized in the next sentence. Sub Main may not be changed.

Running program:            'complete output
Values (count=0/capacity=2) :
Value ? : 10
Values (count=1/capacity=2) : 10
Value ? : 20
Values (count=2/capacity=2) : 10 20
Value ? : 30
Values (count=3/capacity=4) : 10 20 30
Value ? : 40
Values (count=4/capacity=4) : 10 20 30 40
Value ? : 50
Values (count=5/capacity=8) : 10 20 30 40 50
Value ? : 60
Values (count=6/capacity=8) : 10 20 30 40 50 60
Value ? : 70
Values (count=7/capacity=8) : 10 20 30 40 50 60 70
Value ? : 80
Values (count=8/capacity=8) : 10 20 30 40 50 60 70 80
Value ? : 90
Values (count=9/capacity=16) : 10 20 30 40 50 60 70 80 90
Value ? :

My current code:

Module Arrays
    Sub Main()
        Dim count As Integer = 0
        Dim values(1) As Integer
        Do
            PrintValues(values, count)
            '
            Console.Write("Value ? : ")
            Dim newValue As Integer = Console.ReadLine()
            count += 1
            '
            If count > values.Length Then
                values = GetArrayWithDoubledCapacity(values)
            End If
            '
            StoreValue(values, newValue, count - 1)
        Loop
        '
        Console.ReadLine()
    End Sub
    Function PrintValues(ByVal values As Integer(), ByVal count As Integer)
        Console.WriteLine("Values (count=" & count + 1 & "/capacity=")
        Return values
    End Function
    Function GetArrayWithDoubledCapacity(ByVal values As Integer())

        Return values
    End Function

    Function StoreValue(ByVal values As Integer(), ByVal newValue As Integer, ByVal Count As Integer)

        Return values
    End Function


End Module

This post has been deleted.

Mon, 19 Dec 2011 10:33:55 -0800

This post has been deleted.

A console program to convert Celsius-to-Fahrenheit and vice-versa

Fri, 02 Dec 2011 07:40:47 -0800

A console based program to convert from degree Fahrenheit or degree Celsius or vice-versa

A console program to convert Celsius-to-Fahrenheit and vice-versa

Fri, 02 Dec 2011 07:38:58 -0800

A console based program to convert from degree Fahrenheit or degree Celsius or vice-versa

VB.NET & MySQL Insert Blob data

Tue, 15 Nov 2011 20:52:37 -0800

Imports System.IO 'Write this coding before Class declaretion.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim cmd As New Odbc.OdbcCommand
Dim SQL As String
Dim rawData() As Byte
Dim fs As FileStream
Dim sPath As String

Full Code: http://bd-programmers.blogspot.com/2011/11/vbnet-mysql-insert-picture-in-blob.html

For more solution visit the following blog.
http://bd-programmers.blogspot.com/

VB.NET & MySQL Insert Blob data

Tue, 15 Nov 2011 20:46:55 -0800

Following coding will help you to insert picture from VB.NET to MySql BLOB field. Coding is very simple.

Imports System.IO 'Write this coding before Class declaretion.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim cmd As New Odbc.OdbcCommand
Dim SQL As String
Dim rawData() As Byte
Dim fs As FileStream
Dim sPath As String

Full Code

USB Barcode Scanner

Mon, 07 Nov 2011 09:44:18 -0800

Just curious if anyone has done this.

I've got a Motorola Symbol LS3408ER barcode scanner. I have it connected via the USB cable that it came with. Basically at this point it is treated as a HID Keyboard...so there really isn't any control over it.

I've got a vb.net form application that on a specific form the scanner is used. My question is, can I somehow filter out scanner input until a specific form is loaded?

I've got a couple of other forms that the user interacts with (touch screen) by pressing buttons. If the scanner is setup to have a suffix so that a cr is sent, it could press a button on the form that I don't want.

Is it possible to 'disable' it until it is needed? I've looked at the SDK but I really don't see anything that could help me out.

Using a serial connection would be the easiest, but in my case I can't use it because of the current setup.

Any thoughts?

Thanks.

Nick

USB Barcode Scanner

Mon, 07 Nov 2011 09:42:28 -0800

please i need a school management source code in dot net

Sun, 23 Oct 2011 14:38:57 -0800

please if some one can help me with a school management software in dot net. i will buy. please.
am learning dot net now. please, i need it ASAP

populating combobox with sql server compact 3.5 tables

Fri, 21 Oct 2011 17:17:20 -0800

i am having difficulty populating combobox with sql server compact 3.5 tables.i am encountering the following error "NotSuppoertedException was unhandled in sql server ce 3.5

in this line Error - Me.ComboBox1.DataSource = Me.con.GetSchema("TABLES")
can someome help me with correct syntax please

Re-routing vb.net with created database and dataset

Sun, 16 Oct 2011 08:09:20 -0800

Hi, I recently created a program and connected to a database using wizard on my pc and tried to run the same program on different pc's. I was unable to re-direct the target file address. Is there a way to go by using wizard?

Get URL from text file?

Tue, 04 Oct 2011 13:49:10 -0800

Hey, i was wondering if this is possible and if so, how would i do this. Well i want my program to check if for example "http://mysite.com/download.txt" has a url in it, if it does it will download that url located in the .txt file located on my server.

Thanks.

How does Something.Controls.Add work? How to reference it?

Mon, 03 Oct 2011 15:43:01 -0800

Ok what I am doing is from a blank from add a Tab Control with No Tabs. Then add 2 buttons to the form.

I add a tab via code and then add a panel inside the tab and change the color to green.

Now in another sub I want to change the Panel color to pink but I am not sure how to access it without changing the scope.

here is the code.

Public Class Form1

    Dim TabInstance As Integer = 0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myTabPage As New TabPage()
        Dim myPanel As New Panel()

        
        myTabPage.Name = TabInstance
        myTabPage.Text = CStr(TabInstance)

        TabControl1.TabPages.Add(myTabPage)
        TabControl1.SelectedTab = myTabPage

        myPanel.Dock = DockStyle.Fill
        myPanel.Visible = True
        myPanel.BackColor = Color.Green
        myPanel.Name = "testPanel"
        myTabPage.Controls.Add(myPanel)

        'set counter for next time
        TabInstance = TabInstance + 1

    End Sub


    Public Sub ChangeTabPanelColor()
        'change the color of the panel in the first tab
        'TabControl1.TabPages(0).panel.BackColor = Color.HotPink
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ChangeTabPanelColor()
    End Sub

End Class

Any help would be appreciated.

how to get the first item in combobox

Fri, 30 Sep 2011 04:10:22 -0800

hello, i have a problem with combobox,
this is my code.

Private Sub LoadDept()
        conn = New SqlConnection("Data Source=EXCO-2B41B5;Initial Catalog=payroll;Integrated Security=True")
        cmdUser = conn.CreateCommand
        cmdUser.CommandText = "select * from department order by number asc"
        daUser.SelectCommand = cmdUser
        daUser.Fill(dsUser, "department")
        dtUser = dsUser.Tables("department")
        For i = 0 To dtUser.Rows.Count - 1
            cmbDept.Items.Add("" & dtUser.Rows(i).Item(0) & "/" & dtUser.Rows(i).Item(1) & "")
        Next i
        conn.Close()
End Sub

dtUser.Rows(i).Item(0) = first field in my table is "number"
dtUser.Rows(i).Item(1) = second field "division"

result in combobox
1/Injection
2/Warehouse
3/Maintenance

my question is how to insert into database, but the value it just the Item(0) "number" . not both.

Any kind of help would be appreciated.