Visual Basic

Re: Combining two bitmaps

25-Sep-07 4:06

Zaegra is partially correct.

You create a new Bitmap object the size of the two bitmaps you want combined. So, if you want Bitmap2 to show up under Bitmap1, create a new Bitmap object the height of Bitmap1 + the Height of Bitmap2 and the width of the widest of your two bitmaps. Then you create a Graphics object from this new Bitmap object and use it to "DrawImage" the other two bitmaps onto your new Bitmap in the appropriate positions.

A guide to posting questions on CodeProject[^]

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

jensenx25-Sep-07 4:17

jensenx

25-Sep-07 4:17

Alright thx for the response!

I'll get on working with the concept!

Will buzz again if i encounter some issues, hope not! Smile | :)

Thanks once again!

Regards,
jensen

How to display the Guid in a msgbox..

Balagurunathan S25-Sep-07 2:34

Balagurunathan S

25-Sep-07 2:34

Hi Friends..

I am ahving a stored procedure rturn in which i have the First column as Guid.Now i am showing the stored procedure return in a datagrid and now i need to take Guid alone and display it in a message box..I am using the following code .But it errs..

gmdataset = lobjservice.Job_Status(lstrfromdate)
Me.DataGrid1.DataSource = gmdataset.Tables(0)
-------------------------------------------------
Private Sub btnRerun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRerun.Click

mstrjobid = Me.DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
MsgBox(mstrjobid)

End Sub
-------------------------------------------------------------

I am getting the error "Cast from type 'Guid' to 'string' is not valid

Someone help in this regard..

Regards,

Balaguru

pmarfleet25-Sep-07 2:52

pmarfleet

25-Sep-07 2:52

Call the ToString() method on your object instance to return its string representation.

Paul

Balagurunathan S25-Sep-07 3:42

Balagurunathan S

25-Sep-07 3:42

I tried it..But still i am getting the same error..

Regards,

Balaguru

pmarfleet25-Sep-07 3:56

pmarfleet

25-Sep-07 3:56

You must still be doing something wrong. Post your code.

Paul

Dave Kreskowiak25-Sep-07 4:02

25-Sep-07 4:02

Balagurunathan S wrote:
Private Sub btnRerun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRerun.Click

mstrjobid = Me.DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
MsgBox(mstrjobid)

End Sub

OK. So where does mstrjobid get defined?? What does that code look like??

I get the feeling that it's defined as a String and not Guid like it should be.

If that's the case, then yes, you'll get the error that you're seeing because you're trying to assign a Guid object to a variable declared as String.

But, to get your code "working",

mstrjobid = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0).ToString()

A guide to posting questions on CodeProject[^]

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

Context menus, how to make them dynamic?

Balagurunathan S25-Sep-07 19:39

Balagurunathan S

25-Sep-07 19:39

Hi Dave..

Thanks very much for the help.I got it right..Thanks for all who replied for this post..

Regards,

Balaguru

redjen25-Sep-07 1:46

redjen

25-Sep-07 1:46

i have boolean.. and if FALSE then i want the context menu to have

add
edit
delete

if TRUE then just

edit
delete

i have some other scenarios that will be similar to this...

anyone know a good way to approach this?

Thanks for your time

red

Ajay.k_Singh25-Sep-07 1:58

Ajay.k_Singh

25-Sep-07 1:58

Create a context menu with all three menu items. Then at run time you may set visible property of Add menu item to false by checking the value of Boolean variable.

Such as-
----------------------
If bln = True Then

Me.AddToolStripMenuItem.Visible = False

End If
--------------------

I hope this helps Smile | :)

.

-Dave.

Dave Traister,
ComponentOne LLC.
www.componentone.com

Luc Pattyn25-Sep-07 2:57

Luc Pattyn

25-Sep-07 2:57

Me.AddToolStripMenuItem.Visible = Not myBoolean

Luc Pattyn [Forum Guidelines] [My Articles]

this weeks tips:
- make Visual display line numbers: Tools/Options/TextEditor/...
- show exceptions with ToString() to see all information
- before you ask a question here, search CodeProject, then Google

redjen25-Sep-07 3:19

redjen

25-Sep-07 3:19

cool thanks Smile | :)

redjen25-Sep-07 3:18

redjen

25-Sep-07 3:18

thanks dave, thatll do it. simpler than what i thought i had to do..

nice one, cheers Smile | :)

red

hi [modified]

nowdy25-Sep-07 0:50

nowdy

25-Sep-07 0:50

hi i'm stell new to vb.net & i have this error message i just want to know what dose it mean??

" unhandled exception of type 'System.FormatException' occurred in system.data.dll

Additional information: Input string was not in a correct format
i'll copy the code to you to see with me(

<b>Imports System.Data.SqlClient
Public Class branch_code
Inherits System.Windows.Forms.Form

Private Sub b_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_save.Click
' Declear paramter
Dim par1 As New SqlParameter("@branchid", SqlDbType.Int, 4)
par1.Direction = ParameterDirection.Input
cm_pink.Parameters.Add(par1)
''Set values for all poarameters
par1.Value = tb_branch_id.Text
''set command text
cm_pink.CommandText = "insert into Branch ([Branch Name])" & _
"values (@branchname)"
'---------------------------

If tb_branch_name.Text = "" Then
Error_name.SetError(tb_branch_name, "Please Insert Name Here ")
Else

End If

check_connetion()
cm_pink.ExecuteScalar()

' Dim count As Integer
'count =

' StatusBar1.Text = CStr(count) & " Row Inserted "
cn_pink.Close()
cm_pink.Dispose()
cm_pink.Parameters.Clear()
End Sub

Private Sub b_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_clear.Click
clear(Me)
End Sub

Private Sub b_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_Cancel.Click
Me.Close()
End Sub

Private Sub branch_code_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class)

thanks for any helpe Smile | :)

Hend alraie

-- modified at 7:06 Tuesday 25th September, 2007

Christian Graus25-Sep-07 1:10

Christian Graus

25-Sep-07 1:10

Which line gives the error ?

I do think you need a space between ) and the v in values.

I also see that the parameter you're adding is branchid, not branchname.

Overall, I'd say if you're new to VB.NET, you should not be working on this code, unless you have a background in C#.

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

nowdy25-Sep-07 2:35

nowdy

25-Sep-07 2:35

the error in this line

cm_pink.ExecuteScalar()

Dave Kreskowiak25-Sep-07 1:54

25-Sep-07 1:54

nowdy wrote:
cm_pink.CommandText = "insert into Branch ([Branch Name])" & _
"values (@branchname)"

This is the problem with concantenating string together. Like Christian pointed out, you're missing a space between the ")" and "values" in your resulting string, which looks something like this:

insert into Branch ([BranchN Name])values (@branchname)

which, in SQL, is a problem. There must be a space just before "values".

A guide to posting questions on CodeProject[^]

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

Dave Kreskowiak25-Sep-07 3:16

25-Sep-07 3:16

nowdy wrote:
par1.Value = tb_branch_id.Text

Your other issue is this line. You might want to try validating the entered text AND convert it to an Integer before you try and assign it to the parameter value.

Dim branchId As Integer
If Integer.TryParse(tb_branch_id.Text, branchId) Then
    ' Create your parameter object and assign the value of
    ' branchId to it's Value property.

    ' Then you can do your query
End If

If the TryParse statement returns False, the text entered could not be converted to an Integer, invalidating your SQL lookup.

A guide to posting questions on CodeProject[^]

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