Posts by Jx_Man

Hi gino_j...
This thread too old and you post in wrong section. this for vb 6 not for vb.net :)

what problems?
what error come up?
how far u have done?
just post your code...

You're Welcome...
Don't Forget to mark this thread as Solved :)

Just add that code above and set FormBorderStyle = None on form properties to make form without title bar.

you're welcome :)

Actually i didn't agree with your if statement :
If you want to know check box is checked or not then use Checked function :
Try this :

Private Sub chkboxLadiesShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxLadiesShoes.CheckedChanged
        Dim ladiesShoes As String = "Ladies Shoes"

        If chkboxLadiesShoes.Checked = True Then
            lstDisplay.Items.Add(ladiesShoes)
        ElseIf chkboxLadiesShoes.Checked = False Then
            lstDisplay.Items.Clear()
        End If
End Sub

You're Welcome :)

You're Welcome :)

Try This code :

Dim path as String
path = "D:\Test\Music.wav"
My.Computer.Audio.Play(path)

Try this

Microsoft.VisualBasic.Right("Daniweb",3)

Just add current form (.cs file) into your project then you can use function on that form.

pick on timer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        set1X = MousePosition.X
        set1Y = MousePosition.Y
        Label1.Text = set1X & ":" & set1Y
End Sub

decrease an interval timer to get position more faster.

so this line is wrong "lstDisplay.Text"
change with lstDisplay.Items.Add(CurrentItem) ex: lstDisplay.Items.Add(ladiesShoes)

>> actually i don't know any more about dtpicker. so please details.
its not about dtpicker but query with sql syntax.

>> both are for search data from backed access file. like (1st dtpicker) i select a date 16/08/08 and (2nd dtpicker) 16/09/08. i want to find data last a month or any few days.
you want to search data between 1st dtpicker and 2nd dtpicker. so use an operator i gave to you in sql query syntax.

i didn't understand clearly what you want.
>> they will change with 2 color red and blue when i click each text box. when i click a button they will become white
You mean randomize 2 color if we click textbox (we don't know what color will came up, it can be red or blue). Right?

>> but i need, they will become white when all text box will fill with red and blue
you mean :
if all textbox.backcolor <> vbwhite then
change all textbox.color = vbwhite.
Right ?

If u have done to write code in form, i think its easy to write it into module.
just make it as procedure or function and you can call it as u needed.
So, Post your code.... :)

Not clear...you want to add item into list when user checked it?

Use timer to make delay and progress bar.
so, draw a timer and progress bar then add this following code :

Private Sub WelcomeScreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 2

        If ProgressBar1.Value = 98 Then
            Dim obj As New Form2
            obj.ShowDialog() 'open form2
        End If
        If ProgressBar1.Value = 100 Then
            Timer1.Dispose()
            Me.Visible = False
        End If
End Sub

Hi, Use timer for this

> When a button is Clicked - Here Enable the Timer and Close the Valve
> After 5 Seconds (5000) - Disable the Timer and Open the Valve

Ahh, i was late in post. Already answered by selvaganapathy :)

You're Welcome....
Don't Forget to mark this thread as Solved :)

Add on click event (you can find combo box filled with sstab event on the top of code window)
This following code will make u can't open other tabs without fill textbox 1 (text1).

Private Sub SSTab1_Click(PreviousTab As Integer)
If Text1.Text = "" Then ' add as u needed
    SSTab1.Tab = 0
End If
End Sub

See this thread

Using timer to check booking time with system time :
On Timer properties
- Set timer Enable = True
- Set Interval = 1000

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim btime As DateTime
    btime = FormatDateTime("1:00:00 AM", DateFormat.LongTime)
    If FormatDateTime(TimeOfDay, DateFormat.LongTime) = btime Then
        MsgBox("Booking Time up")
    End If
End Sub

using between or operator ">" and "<".

actually it just a simple code.

You're Welcome..
If this thread was solved then mark it as Solved.

I post an example code (with your specification), just copied your database on project path cause i detected database on project folder (App.Path & "\hetcovms.mdb" [see on konektor module]). And i used datagrid not dbgrid, cause its very long not to use dbgrid (sorry for this).

Then post your code, it more help.
and which line of error...

- Post your code first.
- What control used to show data (dbGrid,MsFlexGrid, etc) ??
- DatabaseName, Table name, Field Name???
Specify more detail...

sql = "INSERT INTO Department(Department_ID,Department_name)VALUES('" & deptid & "','" & Text2.Text & "' )"

Post your code.

>> selected choise should be erased ...
This following code will removed selected item on combo box after you click on button 1.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ComboBox1.Items.RemoveAt(ComboBox1.SelectedIndex)
End Sub

not clearly at all.

Sorry double post

>> How would I go about setting a date/time to 0?
Setting computer date/time??or just on your program?

For more information, just do googling more hard than me. :)

1. See this thread for module
2. See this thread for class module

this a some links about class module
- http://www.vbexplorer.com/VBExplorer/ooptutor.asp
- http://www.vbexplorer.com/VBExplorer/wrox/sample172X.asp

Different between class and module :
http://en.allexperts.com/q/Visual-Basic-1048/class-module.htm

Well, this morning i copying new font and there are no error when i used in vb.

>> the connections strings which i used in vs.net2003 isnot working here
Maybe a little mistake. Just post your connection string. Btw visit this site

MessageBox.Show("c#-programming language"); :D

>> now i only wanna display time...i try changing the format but it displays both time and date together....any idea?

To Show current date with long format : FormatDateTime(TimeOfDay, DateFormat.LongTime) Result : 10:40:05 PM

To Show current date with short format : FormatDateTime(Now,DateFormat.ShortTime) Or FormatDateTime(TimeOfDay,DateFormat.ShortTime) Result : 22:40

Visit this site, there are tutorial about Format() function.

Visit this

Post your thread on Computer Science and Software Design Forum Threads Section

on cmdRun click Event :

Dim FrmEvent As New Event
FrmEvent.Show()
Me.Hide()

You can also use Shell(<address of exe as String>, AppWinStyle.Hide)

Agree with Prabakar

Is this thread was solved??
if yes then please post the answer. It will help other member who get the same problem.

>> *Very strange error comes sometimes while i try to enter data in database which says.....
String or Binary data would be truncated !

this error came up if length of your input more longer than your data type length in database.
Ex: In your database
name -> type : String, Length : 5
but when you input data, its more than 5 character. so it would be truncated.
So, if you input Daniweb it would be -> Daniw.

No, We can't.

1. Tables field. give the admission and attendance table field. ()
2. You want to all clear item on combo box (empty) or you want to clear selected (ex : ---select your choice---) ??

Dim s As ADODB.Connection
....
Set s = New ADODB.Connection
...

>> i have knowledge of VB6 , is the code vb.net same as vb6?
not many different about them, if you good in vb6 then i think it will easy to migrate from vb6 to vb.net.
As samir said just post question when u get stuck...