Posts by Jx_Man

this line not working : IO.File.Open(filePath, FileMode.Open) Try to change with Process Function :

If DialogResult.Yes Then
         Process.Start(filePath)
ElseIf DialogResult.No Then
         MsgBox("you decided not to open")
End If

Thx for replying.I do it by own...

Please share your answer. It will help other members when they get same problem.
Thank you :)

not specify, explain more...

>>There are another ways to hide drive without using API function?
Yes, with add key on your registry...
Add module :

Public Sub CreateKey(ayun As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite ayun, Value
End Sub

Public Sub CreateIntegerKey(ayun As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite ayun, Value, "REG_DWORD"

End Sub
'Delete registry key
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value
End Sub

This following code will hide drive D:\

Private Sub Command1_Click()
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Nodrives", 8
End Sub

Restart or logoff to know it works or not
This is value of key :
C = 4
D = 8
E = 16
F = 32
...
C and D = 4 + 8 = 12
C and E = 4 + 16 = 20
D and E = 8 + 16 = 24
....
C and D and E = 4 + 8 + 16 = 28
....

specify your table name...
Use join to select data.

Depend on your project...
if u needed to handle large database i suggest to use SQLServer...
but if u didn't use large database on your thesis (just for simple database), do it with MsAccess.
Its from me...

>> Is access is "beginner" friendly?
Yes, i think.
Access is easiest more than other database.
there are sqlserver, oracle, mysql, etc. but access is the easiest one.

try this following code to hide folder

Private Sub Form_Load()
Dim FileSys, FolderPath
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FolderPath = FileSys.GetFolder("D:\test")
FolderPath.Attributes = -1
End Sub

to unhide set attributes = 0

You're Welcome...
Happy coding :)

which version u got problem?
like debasisdas said you can connect vb with any version of access.

1. Open your project in Visual Studio 2003
2. click File - New - Project - Setup and Deployment Projects
3. Choose Setup Project
4. Choose Add to solution (radio button) under location path
5. Click Ok to start
5. Right click on Application Folder - Add - Project Output
6. Select for Primary Output
7. Then right click in setup project name on solution explorer.
8. Click Add - Merge Module
9. Choose 4 Files (or you can add as u need) :
- Crystal_Database_Access2003.msm
- Crystal_Database_Access2003_enu.msm
- Crystal_Managed2003.msm
- Crystal_regwiz2003.msm
10. Build..
11. Finish...

Call Decript function before check. ......WHERE Decript(psw)=' " & text1.text & " ' Or
You can encript inputed pasw before check ......WHERE psw=' " & Encript(text1.text) & " '

post your code, its more easy to understand

To show next form without hide previous form :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim Test As New Form4
    Test.Show()
End Sub

To show next form with hide previous form :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim Test As New Form4
    Test.Show()
    Me.Hide()
End Sub

To show next form with close previous form :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim Test As New Form4
    Test.Show()
    Me.Dispose(False)
End Sub

>> is there any solution to my problem?
Yes, Install crystal report. Crystal report didn't included in vb6 installer.

RIGHT HAND :

You clicked 167 times in 30 seconds.
Your caffeine level for today is:

Extremely High - Excessive Energy, Spastic

LEFT HAND :

You clicked 137 times in 30 seconds.
Your caffeine level for today is:

Very High - Productive Worker, Jittery

Hi “FRANCE”...Welcome to Daniweb Friend :)
Hope you will get what you needed here.

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Wow, thats hurt to convert
See this link

Great. Don't forget to mark this thread as solved :)

what code to convert?

yup, icon can be extract from dll or exe file. Just confirm from exe or dll file u want to extract icons. :)

Great code

well, its not table. its listview.
Component name is Microsoft Windows Common 6.0(sp6)

Private Sub ListView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim i As Integer
        Dim lvitem As ListViewItem
        For i = 1 To 5
            lvitem = ListView1.Items.Add("1")
            lvitem.SubItems.Add("sonia")
            lvitem.Checked = True
        Next 
End Sub

i think selvaganapathy was answered this.
Username is global variable like debasisdas said.

see this snippet...
May it helps u.

post in c# or asp section. this section for vb 6.

Also u can see this thread too :
http://www.daniweb.com/forums/thread132643.html
Looking for SierraInfo post (#7).

See This Thread
visit this link

please don't make many threads with same topic, just use one thread...
its annoying..

show us your effort...

Try to solve people questions in Daniweb C# forum :)

:D

Try to solve people questions in Daniweb C# forum :)

:D

selvaganapathy was given great code...
also you can try use DateSerial()
DateSerial(Year,Month,Day)
This will add 20 days from 5 July 2008.

Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 5 + 20)
End Sub

Result : 7/25/2008

This will count the 50 days from 1 July 2008.

Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 50)
End Sub

Result : 8/19/2008

what the mean of "deploying"?
make it more clear...

its not clear..
Post the code please :)

nice codes

may this snippet helps you. i was write this code in vb 2003 but its not problem to u.
1. http://www.daniweb.com/code/snippet820.html
2. http://www.daniweb.com/code/snippet836.html

DateInterval.Month is for Vb.Net
FOr VB use
diff = DateDiff("m", date2, date1)

Yes, agreed.
Just post code for vb 6 in this section friend :), cause there are section for vb.net

Val() function always return numeric.

If Val(Text3.Text) <> 0
is it text3 = 0?

No, it means to compare if value of text3 is not 0.

make some application if u get any problem then u post it on this forum. :)

Hi...Welcome to daniweb Friend

Hi...Welcome to daniweb Friend

Hi...Welcome to daniweb Friend

Hi...Welcome to daniweb Friend

Hi...Welcome to daniweb Friend