Posts by Estella

Give more information here.
How many columns you want in listview? and which data you want it to written in listview?

This is how you accessing listview and write data in it. Modifying it as you need.
Assume you have 4 columns :

    With ListView1.ListItems
        .Add , , Text1.Text
        .Item(.Count).SubItems(1) = Text2.Text
        .Item(.Count).SubItems(2) = Text3.Text
        .Item(.Count).SubItems(3) = Text4.Text
    End With

Just using loop through array and write it with sample code above

How about post your 'showing data' codes?
Maybe it's not about the query.

can u show an error in which line?

wonderful code

hi.. thanks.
i never know this.
simple but great :)

wow, thank you Jx_Man.
It worked, but i must logoff or restart to see the result of hiding drive.

There are anyone know another way to hide without logoff or restart computer.

Thx Jx_man, your code worked nice.
one problem again, how to hide drive?
there are another ways to hide drive without using API function?

Any suggestion...

>> Do you use any control or what?
No, i don't.
I just wanna to hide or unhide drive or folder.
Ex : D:\test (Hide folder test on drive D)...
Any suggestion...

Hi Masters...
I want to hide folder or drive with vb6, but i don't have idea how to do this.
any one know how to solved this?

Please Help.
Any suggestion will appreciated much.

thank for great suggestion
it help me much... :)

SearchString = "SELECT * FROM Breakdown WHERE BFrom = " & txtFrom.Text ' & " AND BTo = " & txtTo.Text
Dim Con As New OleDbConnection(BCalc_ConnectionString)
Dim Search As New OleDbCommand(SelectSearchString, Con)

I want to stop users from being able to save a duplicate record in my Access database. I thought of using RecordsAffected, but I can't figure out how to get it to work.

That's how I've started. I want to be able to use the result of the RecordsAffected as a parameter in an IF statement so that

IF Search.records affected = 0 THEN Insert records
 ELSE Display msgbox telling user that duplicate records aren't allowed.

Please Help...

yes, worked perfectly :)

Hi...
Like Sawamura said using clipboard
Try this following procedure, u can call in any event :

Private Sub Cut()
    If Me.Textbox1.Text.Length > 0 Then
        Clipboard.SetDataObject(Me.Textbox1.SelectedText)
        Me.Textbox1.Cut()
    End If
End Sub

Private Sub Copy()
    If Me.Textbox1.Text.Length > 0 Then
        Me.Textbox1.Copy()
    End If
End Sub

Private Sub Paste()
    If Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then
        Me.Textbox1.Paste()
    End If
End Sub

Hi jx_man thx for the reply, i will try ur code now and back to give some feedback

Use Clipboard...

Hi sawamura...
thx for reply, i know that i must use clipboard but i didn't know how to code it.

Hi masters, i need codes to cut, copy and paste text from textbox.
i know that i can use shortcut like Ctrl + X, Ctrl + C and Ctrl + V, but i need to do it in code.
please help me

Anyhelp will appreciated much

Regards
Ela

Ok. Thanks again.
you really help me much with great code.
This thread already solved.

btw if i want to see the small one, i use bellow code :

RetrieveIcon "C:\Program Files\Winamp\winamp.exe", PicIcon32, ricnSmall

That right jx??

yes, got it.
Working like a charm.

RetrieveIcon "C:\Program Files\Winamp\winamp.exe", PicIcon32, ricnLarge

Thank you very much

thanks to completed my declaration.
actually i don't have idea to do this function.
do you know a function to retrieve icon from exe file using my delcaration?

declared on module...

Private Const SHGFI_DISPLAYNAME = &H200, SHGFI_EXETYPE = &H2000, SHGFI_SYSICONINDEX = &H4000, SHGFI_LARGEICON = &H0, SHGFI_SMALLICON = &H1, SHGFI_SHELLICONSIZE = &H4, SHGFI_TYPENAME = &H400, ILD_TRANSPARENT = &H1, BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private Type SHFILEINFO
    hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "Comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hDCDest As Long, ByVal X As Long, ByVal Y As Long, ByVal Flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO

Public Enum IconRetrieve
    ricnLarge = 32
    ricnSmall = 16
End Enum

i want to extract icon from exe file.
does anyone know how to do this??

thank you very much

Regards
Estella

nice one..

thanks for info..

Hi all, hope you find always...
what require if someone want to be a team colleague, featured poster,moderator, etc ??
by their post (total post), reputation, or what???
it is automatically or chosen by dani??

thanks :)

hi..i get some problem too, and thanks for the declaration.

thanks jx_man. its great program. and debsisdas thx for the logic.

I want to change font of all controls in a form.
how i can do this?? i can change font but just for each control not all control in a same time...
please help :)

Welcome to Daniweb

Yes, you can try this trick (originally invented by authors of certain wide spreaded messenger program) - in 32bit version of The System is allowed backward compatibility to 16bit programs. These programs may read physical memory under 1MB range (!) so you can read all ROM BIOS. The only thing what you need is write short 16bexe/com app which reads 64kB block from B800:0000 and save it to disk (piece of cake isn't it?) and compute CRC file saved.

looks great, can you provide an example please?

what a problem? post your code friend and show the effort and you will get help from many people here :)

i think use winmm.dll...
sorry but i never do this.

Wow, Thx a lot Jx_Man. this a wonderful code.

I also never introduced myself. I kind of just popped in.

Me too... :)

Welcome :)
i guest you like "lord of the ring" films, i can see from your avatar

Welcome :)

Welcome :)

Welcome :)

Welcome :)

Welcome :)

did the right think

palm

4342

43 = 101011

chocolate

-575

Enter
prise
rise

rising

pall

thx for the reply jx_man, but i really newbie in this. may i get some ex code please???

Best Regards...

you have confusing program.
iaeDave already answer the question.

Dim myForm As New Form1
myForm.ShowDialog()

that code used to call other form

Die Hard