Icon loading for listviews (.ico files) - Visual Basic Discussion Boards

There's an article at this site[^] and a newer version of the source code (with a rudimentary effort of a graphical designer) on VBForums[^]

'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd

Hello everyone,
Thank you for viewing my post.
I have a question regarding the Datatable.Select method.
I have a program that stores the tables from the database onto the users computer and keeps them in memory, to reduce trips to the database, and not binding my program to the database, to allow the user to make changes without affecting the data directly on the database. I need to populate a listview from the tables within the user's computer.

<br />
The query in my db is as follows:<br />
Me.lstCommodityPool.RowSource = <br />
  "SELECT commodityId, tbl_Commodity.commodityName " & _<br />
  " IIf(nz(commoditySerialNum,'')='','','(S/N:' & commoditySerialNum & ')') " & _<br />
  " IIf(nz(commodityUnitNum,'')='','',' - ' & commodityUnitNum) " & _<br />
  " IIf(nz(commodityCurrentLSD,'')='','',' - ' & commodityCurrentLSD) AS commodityName " & _<br />
  " FROM tbl_Commodity " & _<br />
  " where  commodityId NOT IN (select quoteCommodityId from join_tbl_Quote_Commodity " & _<br />
  " where quoteId=" & Nz(Me.txtQuoteNum) & _<br />
  " and quoteRevisionId=" & Nz(Me.txtRevNum) & _<br />
  ") and companyId=" & Nz(Me.combCompany) & _<br />
  " order by commodityName"<br />

The question I have is how can I recreate the condition, especially the "NOT IN" clause, using the tables on the users computer? Thank you

Hey all.. Im just here to find out what people think of my program. It has been written in VB6 and is a fully functional web server called Caedo HTTPd.

Supports everything from GZIP to PHP, and much more....

Its open source, part of source forge, and all i would like is feed back on it. I take all critisizim the same. If you post some thing bad about it, i will simply try to make that beter Poke tongue | ;-P

alright, any who, you can find Caedo at : http://caedo.0web.org !

... remember http://caedo.0web.org

I couldn't find any category for crystal reports so I am writting here. Sorry for that.

In my report each row displays the maximum { Max(field) } value of a set of feilds using Max function. These rows are in each Group.

I want to display the sum of these row in the Group Header at the top of each group. The Sum() function doesnot allow me to do the sum of Max fields, so I am adding each row's value to a variable and displaying that variable in the Group Header.
Variable x;

x = x + Maxfield;

But it displays only the value of the first row.

Correct result:

Group 1 Total - 5 (Sum of 3 + 2)

Row#1....3
Row#2....2

My incorrect result:

Group 1 Total - 3 (First row value)

Row#1....3
Row#2....2

can anyone please help.

Your question is incomplete to me.
(which version of crystal reports are used. how many max values per group do u want to sum? )

Why dont u use the summary...
right click on the field to summarize and select insert>summary..
that will do the rest for u.
thanks

I use crystal reports with .net 2003.
When I use summary I do not see this calculated field for summing up. Thats is why I am using this programatic approach. If theres any other way then I'll be thankfull for that.

how can i access a microsoft access database that has been converted into sql by the upsizing wizard by coding in visual basic 2005 express?

I am encountering the 'black icon' issue when loading .ico files into an ImageList for use with a ListView. If I load the icons into the ImageList as design-time, and pull them out with

' Create icon from ImageList<br />
    Public Function AssignIcon(ByVal ImgList As ImageList, ByVal indx As Int32)<br />
        Dim objBitmap As Bitmap<br />
        Dim objIcon As Icon<br />
        objBitmap = New Bitmap(ImgList.Images(indx))<br />
        objIcon = System.Drawing.Icon.FromHandle(objBitmap.GetHicon)<br />
        Return objIcon<br />
    End Function

the icons are visible but any transparency is replaced with black.

If I load the the ImageList at runtime, referencing icons which I've declared as embedded resources, with either:

Dim ico0 As New Icon(System.Reflection.Assembly.GetExecutingAssembly._<br />
GetManifestResourceStream("APKK.icnCD_16x16.ico"))<br />
 ImgList.Images.Add(ico0)

or

Dim ico0 As New Icon(Me.GetType(), "icnCD_16x16.ico")<br />
ImgList.Images.Add(ico0)

ALL I get is black boxes.

Setting other icons without going through an imagelist (like me.icon) using either of the two above code snippets displays the icon perfectly and preserves the transparency. But again, if I were to pull my icon out of an imagelist to set me.icon, it would not display correctly.

So I know it is possible that I can correctly display icons in my application when I do not use an ImageList. Is there any way I can assign an icon to a ListViewItem without using an ImageList? I suspect the answer is yes, but only by overriding the ListView class, and I have no idea where to start with that.

Perhaps there is a special technique which I've overlooked for loading the ImageList?

I like my icons as they are, and don't really relish the thought of manually turning them into bitmaps...

Any help appreciated! Let me know if more info is required. I am using VB.Net 2003.

Thank you!

Hi to all,
I want to save my data from a textbox in the database with a DataAdapter.
tbEingabeKomp is my TextBox, SqlDAKomponente my DataAdapter, SqlConnMesswerte my Connection
The DataAdapter has a Connection to the Database.

This code doesn't work.. and I dont know why

1st Code snipped

<br />
Me.SqlDAKomponente.InsertCommand.CommandText = "INSERT INTO tKomponente (name) VALUES (@Name)"<br />
Me.SqlDAKomponente.InsertCommand.Parameters.Add("@Name", Me.tbEingabeKomp.Text)<br />
<br />
Me.DataSetKomponente.AcceptChanges()<br />
<br />
Me.SqlConnMesswerte.Open()<br />
Me.SqlDAKomponente.Update(Me.DataSetKomponente.Tables.Item("tblKomponente"))<br />
Me.SqlConnMesswerte.Close()<br />

This code works, but I want to use the DataAdapter
2nd Code snipped

<br />
'create insert command<br />
Dim insCmd As SqlCommand<br />
insCmd = New SqlCommand("INSERT INTO tKomponente(name) VALUES(@name)", Me.SqlConnMesswerte)<br />
insCmd.Parameters.Add("@name", Me.tbEingabeKomp.Text)<br />
<br />
insCmd.Connection.Open()<br />
insCmd.ExecuteNonQuery()<br />
insCmd.Connection.Close()<br />

Could anybody help me to solve this problem?

TIA
Holger

PLEASE GIVE ME A SEARCHING CODE FOR A SET OF NUMBERS IN A RECORD BY USING VB 6.O

FOR EXAMPLE IN A LOTTO DRAW NUMBERS WON
ARE
6,10,20,21,35,49 AND MEGA NUMBER SAY 9

I HAVE MANY PAST RESULTS AND THEIR CORRESPONDING DATES IN A DATABASE.
SO I WANT TO DEVELOP AN APPLICATION TO HELP ME KNOW IF THE SAME SET OF
NUMBERS HAVE WON BEFORE OR EVEN THREE OF THEM HAVE ONCE WON

What kind of database are you using? Wouldn't it be easier to let the database do the searching? Is each number in its own field in the database?

Mike Lasseter

Hiya

I'm trying to create a letter pack process.

In other words, I need to create a process where a user has a setup screen and a tree view (or something smilar) which points to a specific location and can only see crystal report files (8.5).

The user can then click on a "create pack" button, and has the options of adding as many reports as they want.

The user can then click on a print button and a screen will come up with instead of "Create Pack" it says print, and they can select the pack and print it

Thanks

Pixie Laugh | :laugh:

-- modified at 10:22 Wednesday 26th July, 2006

please help me in making this program this is my first time to use visual basic.net, and this is our first activity... T_T i have no idea how start...!! anybody there who can help me in making this program???? i will really appreciate if you could help me... thx!

asa

It would help if you described what exactly needed doing.

Let me point you in the right direction on how to start -

1. Click on the Visual Studio / Visual Basic Express icon.
2. Click on "File > New..."
3. Give the project a name.
4. Look here[^].

And Bob's your uncle!

Are you working as cashier or teller maybe?
ya..ya.. i'm very understood what you're facing out now.

There are 2 things you need to develop here:
1. Parser (mean: will parse the amount into several variables)
2. Dictionary (every variable declare above will bind to word on dictionary.)

I can help you with the parser but i have no time with the dictionary. Beside, English isn't my 1st language.

I'm hungry now, maybe after dinner i'll write it for you. Dead | X|

I wonder if anyone can help me. I have the following,

I have a form (ie FormM) that is IsMdiContainer = True.

Another form (ie FormA) which is not. This form is selected via a menu option

Question....

At the moment when I move the FormA it can go anywhere on my screen. What command or property do I use so that FormA cannot leave the MDI form (FormM) area.

I hope this makes sense

-- modified at 7:26 Wednesday 26th July, 2006

In the FormM add the following:

Private Sub XXXToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXToolStripMenuItem.Click
FormA.MdiParent = Me
FormA.Show()
End Sub Smile | :)

can i bind variables to access-database directly like i can bind textboxes?
(textbox1.databinding.add("Text",datasource,"Column1"))

when i need data, i allways bind a textbox to the database and then take the data from that box, but that's not really satisfying:

textbox1.databinding.add("Text",datasource,"Column1")
dim myVariable as string =textbox1.text

and then i hide the textbox under a panel, so the user doesn't see it.

does somebody know a better way?

Why don't you look at using Business Objects or Typed Datasets when getting your data from the database?

http://www.google.com/search?sourceid=navclient&ie=UTF-8&rls=GGLG,GGLG:2006-17,GGLG:en&q=%22typed+datasets%22[^]

Mike Lasseter

vb.net:

how do i allow the user to jump between two tabpages of a tabcontrol but not to jump to the third tabpage before the user didn't click a certain button?

Don't show the third tab page until it's acceptable for the user to click it, or handle the tab page changed event, and if it's changed to the one you don't want, change it back.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

i have created the small programme,which have check box,so i have put small logic there when the check box clicked,so i need to know how do i do the databind for textbox in coding,which take the data frm database.i need how to give the code for databind in textbox codings. pls help me.

Thank you

Your question is too high level. Why do you want to databind to a textbox, it can only hold one string, right ? Or do you have more than one textbox ? What's the database ? Did you put the data in there ? What is the data ? What are you trying to do exactly ?

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

First i thanks to you consider my problem.
I have mentioned there i have a database and i want retrive the data from database.My quection is in my login form if someone click the check box,that mean user's id and password automatically detecting from the database,so i have two text boxes one for id and other for password.So how can i bind the data in text box in coding level,not in design level.
Thanks

I'm not sure what you mean by 'bind'. I'd expect to run a stored proc that returns true or false, taking hte username and password. Then your UI layer never contains any passwords, it simply calls the data layer to check if the values present are valid or not.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog