|
I am attempting to edit an image to give it a non 3D effect. My problem is that the code does exactly what it is suppose to do  . Because of this, quite a few images have these big ugly streaks which completely mess up the affect, all because this green in a range of 5 was to close to this color of black. (Example: try this on C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg). Does anyone have any alternative ideas of how to get a smooth image from this?
'Create a cartoonish like affect <br />
Public Function Cartoon(ByVal EditImage As Image, ByVal Range As Integer) As Image<br />
Dim ModBMP As New Bitmap(EditImage) 'Image to eidt<br />
Dim X As Integer, Y As Integer 'Positioning coordinates<br />
Dim ColorCapture As RGB 'Public Structure(3 integers to handle colors, nothing special)<br />
Dim Match As Boolean<br />
Dim R As Integer, G As Integer, B As Integer<br />
'Filter through<br />
For X = 1 To ModBMP.Width - 1<br />
For Y = 1 To ModBMP.Height - 1<br />
'Get color value of first position<br />
R = ModBMP.GetPixel(X, Y).R : G = ModBMP.GetPixel(X, Y).G : B = ModBMP.GetPixel(X, Y).B<br />
'Get color value of one pixel behind<br />
Try<br />
ColorCapture.R = ModBMP.GetPixel(X - 1, Y).R : ColorCapture.G = ModBMP.GetPixel(X - 1, Y).G : ColorCapture.B = ModBMP.GetPixel(X - 1, Y).B<br />
Catch ex As Exception<br />
'MsgBox(ex.Message)<br />
End Try<br />
'Modify to enhance check (crap code)<br />
'Dim Vivi As Integer = 0<br />
'Vivi = HighestColor(R, G, B)<br />
'If Vivi = 1 Then R = R * 5<br />
'If Vivi = 2 Then G = G * 5<br />
'If Vivi = 3 Then B = B * 5<br />
'Check Relations between two areas (ReAdjusted to hard way of adding booleans)<br />
Match = InRange(R, Range, ColorCapture.R) + InRange(G, Range, ColorCapture.G) + InRange(B, Range, ColorCapture.B)<br />
If Match = True Then R = ColorCapture.R : G = ColorCapture.G : B = ColorCapture.B<br />
'Adjust the image<br />
ModBMP.SetPixel(X, Y, Color.FromArgb(R, G, B))<br />
Next Y<br />
Next X<br />
EditImage = ModBMP<br />
Return EditImage<br />
End Function<br />
<br />
'Purpose: Check highest color value to help figure between small differences<br />
Public Function HighestColor(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Integer<br />
'Check<br />
Dim eR As Boolean, eG As Boolean, eB As Boolean<br />
'Evaluate<br />
If R < B And R < G Then eR = False<br />
If G < R And G < B Then eG = False<br />
If B < R And B < G Then eB = False<br />
If eR = True Then Return 1<br />
If eG = True Then Return 2<br />
If eB = True Then Return 3<br />
End Function<br />
<br />
'Purpose: Return boolean of whether in range of this number<br />
Public Function InRange(ByVal Number As Double, ByVal Range As Double, ByVal Target As Double) As Boolean<br />
'Check<br />
If Target <= Number + Range And Target >= Number - Range Then<br />
InRange = True<br />
Else<br />
InRange = False<br />
End If<br />
'Return Results<br />
Return InRange<br />
End Function
|
|
|
|
|
You should read my image editing articles in C#. GetPixel/SetPixel is too slow. Can you do unsafe code in VB.NET ?
Is this a smoothing filter ? There's a smoothing filter in my C# articles/library.
Also, when you change a bitmap, you should call Dispose on the old one before getting rid of it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I have been looking over your articles on image editing in c#. They offer many ideas and will be helpful for some over things I plan down the road. I am not sure of how to do unsafe coding in vb.net, but I will do some research on that.
No, this is not meant to be a smoothing filter in its idea... Lets say we have a picture of a flower, purple, light shining on one side, and there is a nice clear blue sky behind it. If it was a real picture, most of the pixels would be different, like the sky might have two blue pixels right next to each other of different values that are very close. My plan is to make it so they match, but not for a smooth affect. If all the sky becomes one shade of blue, each and every piece, and the flower becomes 2 different colors, it loses it real affect. It then becomes like an odd cartoon image, which is the affect I am aiming for.
I'll modify my code for the disposal. Thank you for your advice.
|
|
|
|
|
Helloo 
Any of you guys know how to stretch backgroundImage in VB.net?
I'm trying to make a program as an MDIContainer and i have created a jpg picture as the BackGroundImage. However, when I tried to resize the form, the backgroundImage will be tiled, instead of stretched. Is there a way to stretch the Image?
Thank you
|
|
|
|
|
Yes, you can set the properties to stretch the image, I believe. Or you can draw it yourself, in which case you can draw it to the size of the window.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Thank you
I modified the form_resize so that it will create a new bitmap with a new size everytime the form resizes, it's working now.
Thank you so much
-- modified at 22:08 Tuesday 15th November, 2005
|
|
|
|
|
I have a third-party DLL that I am importing into vb.net code that renders to a device context.
<psuedo>
Render(HDC, x, y, width, height, scale, rotation_angle)
</psuedo>
I like being able to use the matrix transformations of GDI+. This makes rotation and zooming and inheriting rotation and zooming easy.
However, if I use the graphics object of my drawing surface to change the transformation matrix, then pass the device context to the render function, the rotation does not take effect for the render function. I assume this is because the render function uses GDI and does not enter the GDI+ rendering pipeline.
I have tried drawing to a bitmap, then rendering the bitmap to my drawing surface, but at a significant reduction in quality.
Does any one have any ideas on how to improve on my work, or am I fighting a losing battle?
Kevin
|
|
|
|
|
I have an Access dB with a VB.net front-end that I can display, browse, and edit records in. This program can also search through the dB to find specific records. My search criteria is set to last name and the problem I am running into is...if I have three people with the same name listed in the dB and I do a search, all three names will show up as being records in the dB (which is correct so far). But when I click on one of the search results, they all go to the same record. What would be causing this? I have stepped through my code and it seems either the identifying part (PK) of the record is missing or just not being utilized by my code properly. Has anyone had this problem before? I am kind of looking for some guidance on this solution as I am out of answers. Thank you.
Jason
I'd rather have a bottle in front of me than a frontal lobotomy.
|
|
|
|
|
can you share a snippet, just to give us a good idea about your problem.
thanks!
Marvin N. Guerrero
- Taje Kage_bunshinNunJutsU
|
|
|
|
|
Here is the code for the btnSearch_Click event and then for the lstResults_SelectedIndexChanged event. I believe it is something w/in these sections. My opinion on the problem is that I am using a string in the lstResults_SelectedIndexChanged event and there is nothing to tie the search results with the actual records (unique ID). I don't know if I am wording this right but I somehow need to tie my search results into a unique ID (Primary Key of dB). Anyway, here is the code:
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'search the dataset for the record
Dim TotalRows As Integer
TotalRows = dsCards.Tables("Football Cards").Rows.Count
'if they have no active DataSet, refuse:
If dsCards.Tables.Count = 0 Then
MsgBox("please use the File menu to open a Dataset, or create a new one first.")
Exit Sub
End If
'search for the target, then display it
Dim searchfor As String = InputBox("Enter Your Search Term", "Search")
If searchfor.Length = 0 Then
Return
End If
lstResults.Items.Clear()
Dim i, x, count As Integer
For i = 0 To TotalRows - 1
x = dsCards.Tables("Football Cards").Rows(i).Item(8).ToString.ToUpper.IndexOf(searchfor.ToUpper) ' see if title column matches
If x <> -1 Then 'match
lstResults.Items.Add(dsCards.Tables("Football Cards").Rows(i).Item(8))
'add title field to listbox
count += 1
End If
Next i
If count = 0 Then 'no matches found
MsgBox("No match for " & searchfor & " was found...")
Else
lstResults.Visible = True
End If
End Sub
Private Sub lstResults_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstResults.SelectedIndexChanged
'go to the selected record
Dim dr As DataRow, dt As DataTable
lstResults.Visible = False
Dim i As Integer = 0
Dim s As String
dt = dsCards.Tables("Football Cards")
s = lstResults.SelectedItem.ToString 'which item did they click?
'find their choice
For Each dr In dt.Rows 'search the dataset to find the correct Description
dr = dsCards.Tables("Football Cards").Rows(i)
i = i + 1
If dr(8).ToString = s Then
bmCards.Position = i - 1
Exit For
End If
Next
End Sub
Thank you!
jason
I'd rather have a bottle in front of me than a frontal lobotomy.
|
|
|
|
|
On my windows form I have a textbox and a datagrid. As I navigate through the grid's data how can I display the selected row of the first column in the textbox?
Thanks
|
|
|
|
|
There are many ways to extract information, first you need to identify the index of the record you want to extract.
We can use the ME.Databindingcontext( datasource ).position to identify the current row.
Normally we assign a table to a datagrid's datasource, but here we will use the Table.Defaultview.
SO given TBL1 as your datatable
Datagrid.datasource = TBL1.Defaultview
then we can use
Me.BindingContext(TBL1.DefaultView).Position()
to indentify the current row, this should work even it you change the sort field of the datagrid.
I think thats it.
Dim ID As String
'use the this event handle
Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
DataGrid1.CurrentCellChanged
Dim x As Int16
'Datagrid1.datsource = tbl1.Defaultview
' instead of Datagrid1.datsource = tbl1
' you must explicitly point to the tables defaultview
'Get the position of the Table's Defaultview
x = Me.BindingContext(TBL1.DefaultView).Position()
'use x to identify you row
textbox1.text = TBL1.DefaultView(x)("fieldname")
End Sub
Marvin N. Guerrero
- Taje Kage_bunshinNunJutsU
Marvin N. Guerrero
- Taje Kage_bunshinNunJutsU
|
|
|
|
|
hi,
try this
TxtboxName.Text =
DataGrid1.Item(DataGrid1.CurrentRowIndex(), 0).ToString()
Live Life King Size
Asif
|
|
|
|
|
That will not work if the datasource is a sorted view.
|
|
|
|
|
Hi everyone, thank you for looking at my post. I have a problem when loading a combobox in a windows usercontrol/form. I attempt to populate the combobox, within my user control, when I load the other data within the form. When I populate the combobox with data, I cannot clear the combobox if there is matching selected index when it loads. After it loads and the user selects another item, the combobox filters and clears the index as needed. I populate as much of the data on the form when the form loads. The user controls are then populated based on the data populated on the form. This is where I have the problem. When the form and user controls load for the first time, the addtion of the datasource to the combobox does not allow me to clear set the index of the combobox to -1 if the first time on the form does not have related record to the data on the form. Thank you for your help.
Code:
#Region " Load Stuff "
Private Sub uc_companyCreditBankContact_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ucCreditMediator = New tabCompany.CompanyCredit.uc_companyCreditMediator
Call Me.requery()
Call Me.populateComboAllTypes()
Me.recordStatus = cCreditBankContStatusType.none
'Call Me.enableCreditBankContact(False)
End Sub
#End Region
#Region " Requery "
Public Sub requery() 'Function that can be called from other forms/classes to populate the companyInfo data
ds1 = Me.ucCreditMediator.creditBankInfo.Copy 'Calls the mediator class to populate the ds
End Sub
#End Region
#Region " Populate Types/Comboboxes"
Private Sub populateComboAllTypes()
Call Me.CompanyBank_Populate()
Call Me.CompanyBankContact_Populate()
End Sub
Private Sub CompanyBank_Populate()
Me.comb_companyCreditBank.AddDataSource(ds1.Tables("tbl_CompanyBank"), "companyBankName", "companyBankId") 'Add a datasource to the company with display and value members
Me.comb_companyCreditBank.emptyIndex()
End Sub
Private Sub CompanyBankContact_Populate()
If Me.txtBankId.Text <> "" Or Me.txtBankId.Text <> "-1" Or IsNothing(Me.txtBankId) = False Then
Call Me.comb_companyCreditBankContact.AddDataSource(Me.ds1.Tables("tbl_CreditBankContact"), "creditBankContactFirstName", "creditBankContactId")
Call Me.comb_companyCreditBankContact.emptyIndex()
End If
End Sub
#End Region
|
|
|
|
|
Thank you to Andrew Vos for his great project.
(http://www.codeproject.com/useritems/StartButtonEx.asp[^])
One thin I would like to ad to it is to disable the OLD windows Start button completely ... So that pressing the win key on the keyboard or CTRL+ESC to bring up the new custom menu, or alternativly do just nothing.
Can this be done by a simple registry hack ? Or what Should I add / Modify ?
(New in VB.NET)
thank you in advance.
Wilhelm
|
|
|
|
|
There is no registry hack to turn that key off. The only solution is to write a low-level keyboard hook and have it look for that key make/break and eat those messages (not pass them along the koyboard hook chain).
I wrote just such a toy, in C++, a few years ago, but since my employer at the time owns the code, I can't give it to anyone.
I used this[^] article on MSDN as the basis for my design.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Please help me!!
I use Visual Basic for my application.
I have a Windows Forms application and I like to export a SQL server query to a csv file.
How can I do that?
Dennis
|
|
|
|
|
You can iterate through the datatable and write a CSV file from the rows.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Can you please give me an example code on how to do this?
I am pretty new with programming such an application!
Thanks in advance.
|
|
|
|
|
use foreach to iterate through the Rows collection of your table. You can then access each property in the row using row("columnName"). Here[^] is an article on how to write text files in VB.NET.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hello everybody!
can you help me :
if in VB 6 uses VBKeyK then what VB.Net uses?
Thanks!
|
|
|
|
|
What is VBKey ? Is it like the Keys enum ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Sorry i did'nt mention the IDE:
VB.NET 2003
PatriceB
|
|
|
|
|
Hello Guys,
I am trying to sign my assembly with a Strong Name.
When I try to build the program I get this nice error:
Preparing resources...
Updating references...
Performing main compilation...
vbc : error BC30145: Unable to emit assembly: Referenced assembly 'Interop.Scripting' does not have a strong name
Building satellite assemblies...
Satellite assemblies could not be built because the main project output is missing.
I am interested to know how we could sign the 'Interop.Scripting' assembly
Is there someone having a clue ?
Thanks by advance
Pat
PatriceB
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
