|
I'm writing an app that opens an image file, converts it to a gif, sets it transparency and then resizes it. Everything works fine until I resize the image (The transparency is lost and is replaced with black pixels). The reason is that to resize the image I am doing a matrix transform and drawing the image onto a new image. When it draws onto the new image it loses its transparency information (I think this is because the image I am getting does not have the right colour depth). I could apply the transparency after resizing but this leaves 'fuzzy edges'. Does anybody have any ideas how I could achieve drawing an image with transparent areas onto a new image.
If anyone can help that would be great, I could mail the entire code if necessary, would have posted it here but its too long.
Here is a small section the code:
<br />
Private Sub ResizeImage(ByVal filename As String, ByVal Width As Integer, ByVal height As Integer)<br />
Dim oSourceImage As Bitmap<br />
Dim tmpBmp As Bitmap = CType(Image.FromFile(filename), Bitmap)<br />
Dim IsAlpha As Boolean = Image.IsAlphaPixelFormat(tmpBmp.PixelFormat)<br />
If IsAlpha = False Then<br />
oSourceImage = New Bitmap(tmpBmp.Width, tmpBmp.Height, PixelFormat.Format32bppArgb)<br />
Dim g As Graphics = Graphics.FromImage(oSourceImage)<br />
g.DrawImage(tmpBmp, 0, 0)<br />
g.Dispose()<br />
tmpBmp.Dispose()<br />
Else<br />
oSourceImage = tmpBmp<br />
End If<br />
<br />
'Dim oSourceImage As Image = TransImageUtility.SetTransparentColour(Image.FromFile(filename))<br />
If Not ((oSourceImage.Width <= Width) And (oSourceImage.Height <= height)) Then<br />
Dim oResizedImage As New Bitmap(Width, height, PixelFormat.Format32bppArgb)<br />
Dim oGraphic As Graphics = Graphics.FromImage(oResizedImage)<br />
oGraphic.CompositingQuality = CompositingQuality.HighQuality<br />
oGraphic.SmoothingMode = SmoothingMode.HighQuality<br />
oGraphic.InterpolationMode = InterpolationMode.HighQualityBicubic<br />
Dim oRectangle As New Rectangle(0, 0, Width, height)<br />
'********************************<br />
Dim largestRatio As Double = Math.Max(CDbl(oSourceImage.Width) / Width, CDbl(oSourceImage.Height) / height)<br />
Dim posX As Single = CSng(Width * largestRatio / 2 - oSourceImage.Width / 2)<br />
Dim posY As Single = CSng(height * largestRatio / 2 - oSourceImage.Height / 2)<br />
Dim mx As New Matrix(1.0F / CSng(largestRatio), 0, 0, 1.0F / CSng(largestRatio), 0, 0)<br />
mx.Translate(posX, posY)<br />
oGraphic.Transform = mx<br />
oGraphic.DrawImageUnscaled(oSourceImage, 0, 0)<br />
'********************************<br />
oSourceImage.Dispose()<br />
oResizedImage.Save(filename, ImageFormat.Gif)<br />
End If<br />
End Sub
Jim
|
|
|
|
|
I can think of two ways. Either you could handle the controls' GetFocus event, and keep track of which control has the focus using a member variable. Alternatively, you could iterate through the form's Controls collection and call Paste on the control whose Focused property is True.
The first option requires a little overhead when the focus is changed; the second requires a bit more overhead when the Paste function is used. If you don't have many controls on the form, the latter is probably a better solution.
|
|
|
|
|
Hi Mike
Thanks for your comments. 
Yeah, I have tried the second way, but it didn't work to well.
It just pasted the text to all the textboxes.
I did consider doing it the first way as well, but thought that there must be an easier way of implementing it.
I'll give it another go when I get in.
Cheers,
Dan
|
|
|
|
|
I'm trying to learn and have a problem selecting an author from the combo box and pulling up that particular authors book info in a datagrid.
Can someone please help on the Selected Index changed to pull up info in
data grid. I can't bind them together.
Would appreciate so much!!!!!!!!!!!!!!!!! Alex
Below is code:
'Call up authors name in combo box
cmdAuthors.CommandText = "Select au_id, au_fname + ' ' + au_lname as name From authors"
cmdAuthors.CommandType = CommandType.Text
cmdAuthors.Connection = conPubs
conPubs.Open()
'cboAuthors.DataTextField = paraName.Value
daAuthors.Fill(dsPubs, "Authors")
conPubs.Close()
'show the names in the combo box
cboAuthors.DataSource = dsPubs.Tables("Authors")
cboAuthors.DataTextField = "name"
cboAuthors.DataValueField = "au_id"
cboAuthors.DataBind()
End Sub
Private Sub cboAuthors_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboAuthors.SelectedIndexChanged
Dim conPubs As New SqlConnection("Server=alex; Database= pubs; UID= sa; PWD= ")
Dim cmdTitles As New SqlCommand
Dim drTitles As SqlDataReader
Dim daTitles As New SqlDataAdapter(cmdTitles)
Dim dsPubs_Titles As New DataSet
cmdTitles.CommandText = "Select title, title_ID, pub_id, pubdate From Titles Where authors.au_id = titles.title_id ORDER BY titles.title"
cmdTitles.CommandType = CommandType.Text
cmdTitles.Connection = conPubs
If Not IsPostBack Then
conPubs.Open()
End If
dgTitles.DataSource = dsPubs_Titles
drTitles = cmdTitles.ExecuteReader
dgTitles.DataSource = drTitles
dgTitles.DataBind()
daTitles.Fill(dsPubs_Titles, "Titles")
conPubs.Close()
End Sub
End Class
|
|
|
|
|
how to shutdown windows from vb .net application thx
|
|
|
|
|
I am trying to parse the quotation marks from a string that is returned from an inputbox and then "shell" to the console.
Here is my code.
Dim FileName As String = InputBox("Please enter the file name here")
Shell("c:\program files\d-tools\daemon.exe" & " -unmount 0 ")
Shell("c:\program files\d-tools\daemon.exe" & " -mount 0," & FileName)
End Sub
Just to clarify this is a console app.
Any help would be great!
Thank
I'm just a simple man with complex issues.
|
|
|
|
|
I'm not sure what your looking for. What do you mean by parse? What is the end result supposed to look like?
<br />
Dim FileName As String = InputBox("Please enter the file name here")<br />
Shell("c:\program files\d-tools\daemon.exe" & " -unmount 0 ")<br />
Shell("c:\program files\d-tools\daemon.exe" & " -mount 0," & FileName)<br />
The InputBox looks OK. If the user types (WITH quotes): "C:\Program Files\Stuff.txt", that exact string will be passed in the Shell statement. The 2nd shell command will look exactly like this:
<br />
c:\program files\d-tools\daemon.exe -mount 0,"C:\Program Files\Stuff.txt"<br />
If that's what you want passed to the Shell, then you don't have any problems...
BTW: What's with the '&' your using right after the daemon.exe? You don't need it there. Just to make the code a little more readable, you might want to take those out, but keep the one in front of 'FileName'.
RageInTheMachine9532
|
|
|
|
|
My dumb mistake I was trying to mount the image without having the user type in the location.
Thanks
RageInTheMachine9532 wrote:
BTW: What's with the '&' your using right after the daemon.exe? You don't need it there. Just to make the code a little more readable, you might want to take those out, but keep the one in front of 'FileName'.
In VB.Net it requires some sort of connector when writting a string. If you just type:
shell("c:\program files\d-tools\daemon.exe" "-unmount 0")
it will error out at "-unmount 0"
Therefore I put the "&" sign in.
|
|
|
|
|
Rip V. Winkle wrote:
In VB.Net it requires some sort of connector when writting a string. If you just type:
shell("c:\program files\d-tools\daemon.exe" "-unmount 0")
it will error out at "-unmount 0"
OK. Why are you using two strings? Why not just use the one:
<br />
shell("c:\program files\d-tools\daemon.exe -unmount 0")<br />
RageInTheMachine9532
|
|
|
|
|
RageInTheMachine9532 wrote:
OK. Why are you using two strings? Why not just use the one:
shell("c:\program files\d-tools\daemon.exe -unmount 0")
 My bad that was the way I had to do it in my batch file
My head is NOT screwed on right.
|
|
|
|
|
Any help - would be appreciated on reverse engg of some OCX files I have here
is it possible on VB6 -- ocxs created
tx
|
|
|
|
|
Hmm. Let me see now; an anonymous request for help reverse-engineering an OCX....
Think I'll just sit and watch who bites first...
Steve S
|
|
|
|
|
|
Hi..Am Heba
Am new in usin VB.I have a little start in usin VB to creat a Data Base and little tasks..but i need ur help in a matter i didnt find it till now..how can i make a splash screen usin VB 6..plz reply fast ..thx alot
nona20041980@hotmail.com![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
اذكر الله حيثما كنت
واتبع السيئه الحسنه تمحها
وخالق الناس بخلق حسن
|
|
|
|
|
Set the form's BorderStyle to None. Show it at the beginning of the Form_Load event, and hide it in the Form_Show or Form_Activate event.
|
|
|
|
|
Of course remember to show it non modal...
No Matter where you are, there you are
|
|
|
|
|
help i need a virtual keyboard for a touchscreen application
anybody 
dave
|
|
|
|
|
Hi!! i have a problem, when i try to get the reference of my projects visual basic sends me this error: "Error trying to acced the system register". My OS is WinXP. What can be?? Thanks...
|
|
|
|
|
I had this problem once. I moved my code to another machine and it worked fine. In the end I reinstalled VB and all was fine. Also make sure you have all Services packs (for windows and VB).
I ask myself what did I do today? I don't like the answer!
|
|
|
|
|
Hi,
I am facing lots of problem in writing a port listener. My goal was to listen the ports used by anathor application. I found some ready-made port listeners from the web. But I want to develop one for myself.
The platform can be VB/VB .NET. Please help me out....
Just do it...
Dev
|
|
|
|
|
I'm no expert when it comes to sockets, but I think you've got one problem. If you try to bind an EndPoint to a port that is already in use by another application, the bind will fail. You can't have two different apps listening on the same port.
What I think you'll have to do is capture the TCP/UDP traffic and filter out just the ports you need. And I have no idea how to do that...
RageInTheMachine9532
|
|
|
|
|
You are right I wanted to do that... But How to capture TCP/UDP or only TCP will also do now???
|
|
|
|
|
hi all
i am new to vb. by seeing all type of connection i am confused. can any one guide me which is the best way to connect access2000 database as back end to vb as front end and how to do that
with regards
Man created god Not God created man
|
|
|
|
|
Kinda tricky question - ADO is a BIG topic...
You can start with something like the code below (quick'n dirty) - remember to make a reference to some version of "Microsoft ActiveX Data Objects Library" or other in your project.
Dim DBConn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim ConnectionString As String
Dim Query As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDatabase.mdb"
Query = "Select * from myTable"
Set DBConn = New ADODB.Connection
DBConn.Open ConnectionString
Set RS = DBConn.Execute(Query)
Do Until (RS.EOF)
MsgBox(RS.Fields(0))
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
DBConn.Close
Set DBConn = Nothing
I would recomend that you download "Microsoft Data Access Components (MDAC) 2.6 SDK from" Microsoft. It's quite informative and containes a lot of examples for Visual Basic... (http://www.microsoft.com/downloads/details.aspx?FamilyID=cf5bf48d-9bbb-4ca2-9b03-4ee000db37ff&DisplayLang=en)
|
|
|
|
|
I have this OLE object supplied by a 3rd party software company. I use the code,C
Set obj = CreateObject("name.application"),
to run the code. This calls up the actual program, which includes a windows interface. By the companies own code, you are to use SendKeys to enter the username and password information in their login window, before the application will come up and you can then interact with the methods/properties of obj.
The problem I am having is that, while I can get this to run from a VB6 program or a VBS script, I cannot get this to run from an ASP page written in VBScript. A code segmet that I'm attempting to use is below:
Set obj = Server.CreateObject("name.Application")
set oShell = Server.CreateObject("WScript.Shell")
oShell.SendKeys "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & _
"<username>" & "{TAB}" & "<password>" & "{ENTER}", True
obj.RunFile "test1.dxl"
str = "oleSetResult ""Hello World"""
obj.RunStr str
Any thoughts on how to get this type of scenario to work?
-cbonn1
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
