Posts by Jx_Man

there are code for this....
sorry if it can't help you.

see this link :
http://www.vbdotnetforums.com/showthread.php?t=12469

Ok. Happy coding friend :)

Try This Following Code :

private declare function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long,ByVal pszRootPath As String,ByVal dwFlags As Long) As Long
Private Const SHERB_NORMAL = &H10
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Private Const SHERB_NOALL = _
(SHERB_NOCONFIRMATION And _
SHERB_NOPROGRESSUI And SHERB_NOSOUND)

Dim RetVal As Long
Private Sub Command1_Click()
   Dim y as Integer
   y = MsgBox("Are u sure to clean up Recycle Bin ? ", vbYesNo, "Confirmation"
   If y = vbYes Then
      RetVal = SHEmptyRecycleBin(0&,vbNullString,&H1)
   MsgBox "Recycle Bin has been cleaned"
   End If
End Sub

Ok. Hope This Helps.

try this :

For Each controlx In Form3.Controls
    If TypeOf controlx Is TextBox Then controlx.Text = ""
Next controlx

try this following code :

Public Sub ClearTextBox(ByVal root As Control)
        For Each ctrl As Control In root.Controls
            ClearTextBox(ctrl)
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next ctrl
    End Sub

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

Ok. Hope this helps.

see this sample program, but its not originally from me.

Image Processing.zip

Ok. Hope this helps

oh... sorry.
i repost the attachment :

Files Selected.zip

you're welcome all.

sorry i got some error while i compiled this program.
this a sample for asterix character using.

Use Asterix Symbol in input dialog box.zip

hope this helps.

no, its not inserted in picture box. to play swf file you must use shockwaveflash. find this component and add to your toolbox.
right click on your toolbox (or control + T) -> in tab controls find "shockwave flash" -> select it and it will shown on your toolbox control.
use this control on your form.
then add this code to play :

Private Sub Play_Click()
ShockwaveFlash1.Play
End Sub

Private Sub Pause_Click()
ShockwaveFlash1.StopPlay
End Sub

Private Sub Rewind_Click()
ShockwaveFlash1.Rewind
End Sub

Private Sub LoadMovies_Click()
Call ShockwaveFlash1.LoadMovie(0, "C:\Documents and Settings\Jerry\My Documents\Games Flash\ninja.swf")
End Sub

See my attachment program :

SimpleDbProccess.zip

i suggest to write code with your own logic, cause you'll get understanding more.
Ok.
Happy coding Friend :)

actually not me but lewisC

this for accessing parallel port :
http://www.codeproject.com/KB/vb/Inpout32_read.aspx
http://www.aaroncake.net/electronics/vblpt.htm

actually i never tried to control led before, but you can see this following link :
http://forums.devshed.com/visual-basic-programming-52/led-lights-blinking-via-parallel-port-trouble-with-timers-503292.html
http://ashishrd.blogspot.com/2006/11/controlling-leds-with-parallel-port.html --> this is a good one

actually you didn't give much information for your problem.what database that you've using?
see this link :
http://www.codeproject.com/KB/database/relationaladonet.aspx

your code just less single quote sign.

select TBIn.NoTbin,TBIn.IdBrg, Barang.NameBrg,TBIn.SupCode,Supplier.SupName from TBIn,Barang,Supplier
where TBIn.SupCode=Supplier.SupCode and
TBIn.IdBrg=Barang.IdBrg and
TBIn.IdBrg = [B]'B002'[/B]

you're welcome.
happy coding and once again careful with the code.

See this link
http://www.tek-tips.com/viewthread.cfm?qid=1433076&page=13

see this link friend
http://www.devcity.net/Articles/111/1/vbnet_se_dll.aspx

Try This following Code :

Option Explicit

Private Const No_ERROR = 0

Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
Private Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIp As Long, ByVal ScrIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (dst As Any, src As Any, ByVal bcount As Long)

Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, sRemoteMacAddress As String) As Boolean
    Dim dwRemoteIp As Long
    Dim pMacAddr As Long
    Dim bpMacAddr() As Byte
    Dim PhyAddrLen As Long
    Dim cnt As Long
    Dim tmp As String
    
    dwRemoteIp = inet_addr(sRemoteIP)
    If dwRemoteIp <> 0 Then
        PhyAddrLen = 6
        If SendARP(dwRemoteIp, 0&, pMacAddr, PhyAddrLen) = No_ERROR Then
            If pMacAddr <> 0 And PhyAddrLen <> 0 Then
                ReDim bpMacAddr(0 To PhyAddrLen - 1)
                CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen
                For cnt = 0 To PhyAddrLen - 1
                    If bpMacAddr(cnt) = 0 Then
                        tmp = tmp & "00-"
                    Else
                        tmp = tmp & Hex$(bpMacAddr(cnt)) & "-"
                    End If
                Next
                
                If Len(tmp) > 0 Then
                    sRemoteMacAddress = Left$(tmp, Len(tmp) - 1)
                    GetRemoteMACAddress = True
                End If
                
                Exit Function
            Else
                GetRemoteMACAddress = False
            End If
        Else
            GetRemoteMACAddress = False
        End If
    Else
        GetRemoteMACAddress = False
    End If
End Function

Private Sub btnGetMac_Click()
Dim sRemoteMacAddress As String
If Len(txtIpAddress.Text) > 0 Then
    If GetRemoteMACAddress(txtIpAddress.Text, sRemoteMacAddress) Then
        lblMacAddress.Caption = sRemoteMacAddress
    Else
        lblMacAddress.Caption = "(SendARP call failed)"
    End If
End If
End Sub

Actually this code can use as hacking tool, so use this code carefully friend.

use this api function estella :

Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
Private Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIp As Long, ByVal ScrIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (dst As Any, src As Any, ByVal bcount As Long)

This a Good article (from LewisC)
http://downloads.enterprisedb.com/alpha/EnterpriseDB_OraCompat_8.2_v1.2.pdf

try this following code to remove item on listview :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each lvItem As ListViewItem In ListView1.SelectedItems
            lvItem.Remove()
        Next
End Sub

Ok . Hope this helps...

yes

asc = to get ascii.
mid = take a letter from taken value position and sum of value which it taken.
ex: mid("perfect",2,4) result = erfe
ReDim statement to serve as the initial declaration of a dynamic array. The array does not have to be declared anywhere else.

Asc(Mid(Label1.Caption, i + 1, 1)) - 77
get letter from label1 with mid function start from i+1 as many one letter and the result convert to ascii. then ascii be shift as 77.

See this my encryption method, this a simple one. you can use this code to save the encryption result to database and read database with encryption reading.

Encrypt.zip

This is a screenshoot from my encryption.

Hi Chris...
Welcome To Daniweb :)
Fell free to post your question in this forums...

actually in this forum contain many thread about that, try to search before post here.
see this thread :
http://www.daniweb.com/forums/thread106435.html
the site from ramy has a same logic with vb.net just to convert in vb.net language.
Ok. ;)
All for the best.

already answered by pogumahone.
anyelse friends...

hi Dani...
can someone give a reputation points more than one to same person in one day? but in different post/thread...
when i see the someone profile, i find this person got a twice Reputation Point from someone in one day but in different post. could that happened?

your if..else will looks like this in select...case

Private Sub ComboOperan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboOperan.SelectedIndexChanged
        Select Case ComboOperan.SelectedItem
            Case "+"
                MsgBox((Convert.ToInt32(txtNumber1.Text) + Convert.ToInt32(txtNumber2.Text)))
            Case "-"
                MsgBox((Convert.ToInt32(txtNumber1.Text) - Convert.ToInt32(txtNumber2.Text)))
            Case "*"
                MsgBox((Convert.ToInt32(txtNumber1.Text) * Convert.ToInt32(txtNumber2.Text)))
            Case "/"
                MsgBox((Convert.ToInt32(txtNumber1.Text) / Convert.ToInt32(txtNumber2.Text)))
        End Select
    End Sub

You can change Msgbox with your TextboxResult.Text...
OK. Hope This Helps..

nice to hear that.
happy coding friends...:)

SELECT * FROM Customers where EmailAddress like '%" @ "%'"

hi anant266...
welcome to daniweb

i guest u want to save path of the picture.
this way is the easiest. but you must to put the picture on one folder. don't try to move the picture that you was saved it. if you move the picture, you will get an error..

this is a sample of manifest file :
put this file in a same folder with your exe file

YourProgramName.exe.zip

1. Pray

4. Say "No" to projects that won't fit into your time schedule, or that will compromise your mental health

11. Separate worries from concerns. If a situation is a concern find out what God would have you to do and let go of the anxiety. If you can't do anything about a situation .. forget it.

16. Carry a Bible with you to read while waiting in line.

18. Eat right.

23. Having problems? Talk to God on the spot. Try to nip small problems in the bud. Don't wait until it's time to go to bed to try and pray.

26. Remember that the shortest bridge between despair and hope is often a good "Thank you, Jesus!"

27. Laugh.

29. Take your work seriously, but yourself not at all.

36. Every night before bed, think of one thing you're grateful for that you've never been grateful for before. GOD HAS A WAY OF TURNING THINGS AROUND FOR YOU.

"If God is for us, who can be against us?" (Romans 8:31)

sometimes i got depression to finish my final project for graduate
this post give me a spirit more, so thx for he tips, i'll take some for me...
and this my favorite verse :
"I can do all things through Christ which strengtheneth me" (Philipians 4:13)

see this link
http://www.vbdotnetheaven.com/UploadFile/mgold/WordDocument04182005081441AM/WordDocument.aspx

Good means the definition of the method...
i looking for many site and article but all of them have a one resources article and i was read this article...

its your post before :
http://www.daniweb.com/forums/thread106399.html

http://www.exforsys.com/tutorials/asp.net-2.0/installing-visual-studio.net-2005.html

see this thread for more information

people who talk to much but has none action.
Called NATO (Not Action Talk Only)

make a module to connect vb.net with sql server.
add this code to module :

Imports System.Data
Imports System.Data.SqlClient

Module Connect
    Public conn As SqlConnection
   
    Public Function GetConnect()

           conn = New SqlConnection("Server = YourServerName;" & "initial Catalog = yourDatabaseName;" & " Trusted_Connection=yes")

        Return conn
    End Function
End Module

you can call the function on the module to connect with sqlserver on each form. so u can open connection and close.
like this ex:

conn = GetConnect()
conn.Open()
.....
.....
conn.Close()

What a registration form you want to build?
put a print screen?

hi bredes you post a same thread again.
cek your own post (TransParant Control)
try this thread, its a similiar thread like your post
Control Transparant Form

Ok.
all for the best

There are a million suckers born every day!
Your golden opportunity to be a winner!

a suckers can be a winner too.:)

try this following code to copy your program to startup program, but the program must running once to do this. there is none code to make your program running by it self without running before. just one time running and it will running by windows cause windows will running all program in startup program.

Private Sub Form_Load()
Dim mShell
Dim path As String
Set mShell = CreateObject("WScript.Shell")
path = mShell.Specialfolders("Startup")
FileCopy App.EXEName & ".exe", path & "\YourNewRunFileName.exe"
End Sub

People who want to eat the fruit must climb the tree.

-Thomas Fuller,M,D.-

The best way to out of trouble is facing it.

people who didn't admiring another people (do what they want without caring people rights)