Posts by Jx_Man

Hi Sonny... Welcome to Daniweb Friend :)

you're welcome

Imports System
Imports System.Text
Imports System.Security.Cryptography

you're welcome my friend :)

specify more your problem and condition :
- you didn't give a condition for the result. how the result can show "High Distinction" (<20) or other result (> 20 = "?", > 50 = "?" ).
- how far you was tried??
"We only give homework help to those who show effort"
try to write code with this pseudo code :

on button click event 
pseudo code :
labelTotal = val(text1.text) + val(text2.text) + val(text3.text)
if labelTotal.text < 20 then 
   Result.text = "High Distinction"
else if labelTotal.text > 20 and labelTotal < ??? then 
   Result.text = "????" 
.... etc..etc
End if
end of button event

i know you can do this Friend :)

Welcome to Daniweb Friend :)

specify the problem more...:)

DELETE FROM emp e  WHERE rowid>(SELECT MIN(ROWID) FROM emp WHERE e.empno=empno)

i post again :

Open File Without CommonDialog.zip

Hi... Welcome to Daniweb Friend :)
you should to see VB.NET Forum

Hi....Jx_Man

Thanks yeah for your reply
but if u dont mind...can u guide me with some sample code
actually i dont know about vb.net much...

Thanks

this code in form 1

Public Shared temp As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
ListView1.Items.Add(i)
Next i
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim frm2 As New Form2
    frm2.Show()
End Sub

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
    temp = ListView1.SelectedItems(0).Text
    Label1.Text = ListView1.SelectedItems(0).Text
End Sub

this code in form 2 :

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = Form1.temp
End Sub

This an attachment of my code
ListView - Daniweb.zip

Ok. Hope this helps..

Hi.. welcome to Daniweb Friend :)

Hi... Welcome to Daniweb Friend :)

HI... Welcome to Daniweb Friend :)

Hi Matt... Welcome to Daniweb Friend :)

Hi T Ruso... Welcome to Daniweb Friend :)

Hi Devaraj... Welcome to Daniweb Friend :)

Hi... Welcome to Daniweb Friend :)

Welcome to Daniweb Friend :)

Hi Joe... Welcome to Daniweb Friend :)

see this attachment :

Open File Without CommonDialog.zip

Hope this helps..

it is using database??

see this attachment :

Change Font.zip

Hope this helps...
PS: don't remove author name n comment

see this code :

function FIBO(N : integer) : integer; 

 begin 
   if (N = 1) or (N = 2) then 
      FIBO := 1 
   else 
      FIBO(N) := FIBO(N - 1) + FIBO(N - 2) 
 end;

hope this helps...

make a public shared variable to accomodate your item and you can call it in other form.

hmm... see this code. its wont to allowed you input other character except number.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _
               Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
        End If
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            e.Handled = False
        End If
end sub

Dim frm As Form
frm = frmStart
frmStart.show()

it should be : frm.show()

Hi.. Welcome to Daniweb Friend :)

Hi Victor ... Welcome to Daniweb Friend :)

nope..i m using .net 2003. i didn't know in higher version.

you're welcome... :)

ok. see this example program :

Get All User.zip

Hope this helps.
don't forget to give feedback.

One year... congratulation :)

Hi Boby... Welcome to Daniweb Friend :)

Hi Monica... Welcome to Daniweb Friend :)

you're welcome. its ok, everybody can make mistake. happy coding friend :)
all for the best.

that you means every user included default user that it created by windows??

i think you forget to set full = false, just it.
add this code after else :

begin
        Full := false;
        T.Top := inc(T.Top);
        T.Contain[T.Top] := X
      end

ok hope this helps..

sorry for the double post.

see this example :
i write this code in pascal

[ATTACH]5318[/ATTACH]

hope this helps..

see this example :
i write this code in pascal

Array.zip

hope this helps..

i didn't know cause i never use in vista. but i think you must to download a patch for vista.

it is using database?what a current database?how far you do this??

when you create a setup, u can make shortcut and place it on desktop folder.

hi... welcome to Daniweb Friend :)

see this link.

Hi damek.. Welcome to Daniweb Friend :)

Hi... Welcome to Daniweb Friend :)

Hi... Welcome to Daniweb Friend :)

can i save or set that username and password in ADO control so that i can edit that database in my vb project without opening that database in ms-access?...

yes, you can..
you just do some update with your program.
are u already to save or edit data??
show us how far your code work.