[SOLVED!!!] Trying to draw custom form bitmap - Visual Basic Discussion Boards

Hi all,

I have made some controls.

Now i want to have some icons in the toolbar. How can I do that?

Jan

This is my DLL

Hi Jan,

Set the ToolboxBitmapAttribute or place bitmap to the same folder as control,
and with the same name as control class. For more details please refer to:

"Building Windows Forms Controls and Components with Rich Design-Time Features" http://msdn.microsoft.com/msdnmag/i...ls/default.aspx[^]

OR

http://support.microsoft.com/kb/311315[^]

Hope this helps Smile | :)

.

Regards,
John Adams
ComponentOne LLC

Thanks.
i give it a try

Jan

Sorry, but that will not work.
i do not have some error but the toolbar stays with the default icons.

i also tryed with embedded resources, normal resources and filenames. with ico-files and bmp files

Some peaple say replace the points with underscores. so also tryed that. still no luck.

All the help on the internet speaks about 2003 or 2005. remember that I use know 2008.

In 2003 i have succeded the icons but not always.

almost all examples are in C but I need VB

If someone have another idee. maybee with an example? That will help me.

Jan

to all who will or helped me thanks

Hello,

I am using vb.net 2005. I wam using Windings font in my program. I would like to copy and register the font in the clients computers while they run the setup deployment.
How can I add it to my setup project?

Thank you for help

Shay Noy

I am not quite sure how to add them to the setup, but make sure you have the correct permissions/copyright to distribute the font in question.

Regards,
Thomas Stockwell

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Visit my Blog

Go to the File System Editor in your project.
Add a new Fonts Folder and place your font here.

Please remember to rate helpful or unhelpful answers, it lets us and people reading the forums know if our answers are any good.

I SOLVED THIS MYSELF. If you need to know how, please visit http://www.xtremevbtalk.com/showthread.php?p=1301781&posted=1#post1301781[^]
------------------------------------------------------------------------------------------
I have been bashing my head against this wall for quite some time, there is a lack of information on the subject.

I am trying to draw a .png with it's alpha channel as a graphic on a form. The alpha channel works well when i draw on the existing form background but i want nothing BUT the image to be drawn. No background and any semi transparent pixels are to be drawn as is. (see through)
I have tried plenty of methods until i came across http://www.codeproject.com/KB/vb/xDock.aspx[^]

Now here is the question(s) i have:

* What steps do i need to take to override all painting functions of a form and only use GDI and GDI+ to draw Bitmaps.
* And what steps do i need to take to draw .png files with alpha transparency on that said form using GDI and GDI+
* I have the source code from the XDock example but there is very little explanation to how it works, i would love it if someone could explain HOW it does the job and how i can write my own version to understand it.

At this current time my source code is a cluster**** of different approaches, the current lines i am trying to get to work is:

Public Sub SetBitmap(ByVal bitmap As Bitmap, ByVal opacity As Byte)
    If Not (bitmap.PixelFormat = PixelFormat.Format32bppArgb) Then
        Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.")
    End If
    hBitmap = bitmap.GetHbitmap(Color.FromArgb(0))
    oldBitmap = Win32.SelectObject(memDc, hBitmap)
    Dim size As Win32.Size = New Win32.Size(bitmap.Width, bitmap.Height)
    Dim pointSource As Win32.Point = New Win32.Point(0, 0)
    Dim topPos As Win32.Point = New Win32.Point(Left, Top)
    Dim blend As Win32.BLENDFUNCTION = New Win32.BLENDFUNCTION
    blend.BlendOp = Win32.AC_SRC_OVER
    blend.BlendFlags = 0
    blend.SourceConstantAlpha = opacity
    blend.AlphaFormat = Win32.AC_SRC_ALPHA
    Win32.UpdateLayeredWindow(Handle, screenDc, topPos, size, memDc, pointSource, 0, blend, Win32.ULW_ALPHA)
End Sub

This is what should draw the form's graphic content, at the moment i get nothing drawn.

Here follows my bitmap graphics:

Dim SF As StringFormat = New StringFormat()
SF.Alignment = StringAlignment.Center
SF.LineAlignment = StringAlignment.Center
BB.DrawString("* EDIT MODE *" & vbCrLf & ActiveEditObj.Name & vbcrlf & Cursor.Position.ToString & vbcrlf & EditHasMouse0.ToString, HugeBFont, New SolidBrush(Color.FromArgb(50 + (Flux * 100), 255, 0, 0)), me.ClientRectangle, SF)
        
Dim BitTest As Bitmap = New Bitmap(application.StartupPath & "\img\closebtn.png")
BB.DrawImageUnscaled(BitTest, 10, 10)

Where BB is a graphic object created from BBBitmap.

BBBitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
BB = graphics.FromImage(BBBitmap)

I have a reoccurring event that calls:

SetBitmap(BBBitmap, 255)

And like i said above, NOTHING gets drawn. But if i place a button on the form it is drawn and flickers alot, so something is definitely working. But not as intended.

Thank you for any help!

modified on Monday, August 18, 2008 1:12 PM

I am creating a window application in .net. There I have used datagridview. I want to add button in gridview and on click of that button there should be popup window-form with employee number.

So how can i find row click event for button column

Confused | :confused:

iam a having a string like this 'hi this is "john" iam a 'good,' boy:' so how can i get the words like this
hi
this
is
john
iam
a
good
boy
mean even though there are special characters we should get ony srtings

split is the right word. The string class has a split method.

Christian Graus

No longer a Microsoft MVP, but still happy to answer your questions.

I would be saying first replace all characters different then 0123456789abcdefghijklmnopqrstuvwxyz with "" EXCEPT spaces.

Then split on the on you space and voila !

Do Or Don't, there is no "try catch ex as exception end try"

What the.... WTF | :WTF:

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

He's talking about getting rid of the embedded double and single quotes in the string!

Never underestimate the power of human stupidity
RAH

I know my thought process sometimes is funny to say the least, but i think this one is actually correct Wink | ;-)

Do Or Don't, there is no "try catch ex as exception end try"

I am presently using WM_COPYDATA and SendMessage to pass string data from a c++ app to my vb.net app.
Everything works but the response time gets sluggish in the c++ app waiting for vb.net app to process the message.

I would like to use PostMessage to speed up the string data transfer.

I read somewhere that I cannot use WM_COPYDATA with PostMessage.

How can I use PostMessage to do my data transfer?

I would like to see both the vb.net code for receiving data from PostMessage
and
the c++ code for sending data with PostMessage

Will the use of PostMessage really speed up the sending app?

Any suggestions , examples or links would be greatly appreciated

Roger
VS2005 Std / WinXP Pro SP3

I have no clue what you are talking about with the PostMessage deal but my i suggest making a thread that handles the c++ to vb messaging like a background worker?

Be sure that the transfered data is in a valid data block ie global object.

And test it on the 'secure' Vista. Confused | :confused:

Greetings from Germany

Thanks for your quick replies.
I am interested in knowing how to use PostMessage which is a Windows OS function similiar to SendMessage
Thanks
Roger

Can someone please take a look at this code:
I notice that the code is not sufficient to connect to an access database what is wrong with this code?
<Dim db as NEW ADO DB.Connection
Dim rs as NEW ADO DB.Record-set
DIM spath as String ' Path for the database
Dim SQLL as String ' Sql statement

sPath = app.path & "\DB\Name.mdb
>

What I want to do is to connect to an access database, I'd really appreciate some assistance.
Thank you!

Try this site connectionstrings.com[^]

Never underestimate the power of human stupidity
RAH

I know that line of code provided by the link that you sent.
That only answered my question in an infinitestimate way.

So much for human stupidity.

Jesus Christ is Lord!

DR

What you have given me is the connection string. But I am also having problems with the declaration of the variables.

Do you know how to do that, if you do, I will really appreciate your assistance. I have made several attampts to do this but it seems I am stuck. All I need is to know how to declare the variables and how to connect - that's all!

Jesus Christ is Lord!

Sorry I have not used access for 10 years but your syntax seems to indicate you are using VB6, recordsets do not exist in .Net, if this is the case I can only offer you a paddle.

Never underestimate the power of human stupidity
RAH

Hi,

I have one application in vb6.I want to convert it in vb.net.I have been trying alot to use recordset but giving error like arguments are of wrong type,are of out range or conflict with one another.What i do?

code:
If rs1.State = 1 Then rs1.Close()

rs1.Open("select * from UserTable where User_Id ='" & Trim(TextBox1.Text) & "' and User_Password='" & Trim(TextBox2.Text) & "'")
If rs1.EOF = True Then
MsgBox(" Password is not correct, check again .....?", vbCritical + vbOKOnly, "")
i = i + 1
If i = 3 Then
MsgBox("Sorry, you have lost your time.....", MsgBoxStyle.Exclamation)
Application.Exit()
End If
Else

MDIParent1.Show()
Me.Hide()
End If