|
I want to display color image with corresponding color name in combo box.I got to display color in combobox not corresponding color name.
The code is
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim items(Me.ImageList1.Images.Count - 1) As String
For i As Int32 = 0 To Me.ImageList1.Images.Count - 1
items(i) = "Item " & i.ToString
Next
Me.ComboBox1.Items.AddRange(items)
Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Me.ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
Me.ComboBox1.ItemHeight = Me.ImageList1.ImageSize.Height
Me.ComboBox1.Width = Me.ImageList1.ImageSize.Width + 18
Me.ComboBox1.MaxDropDownItems = Me.ImageList1.Images.Count
End Sub
Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
If e.Index <> -1 Then
e.Graphics.DrawImage(Me.ImageList1.Images(e.Index), e.Bounds.Left, e.Bounds.Top)
End If
End Sub
Private Sub ComboBox1_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles ComboBox1.MeasureItem
e.ItemHeight = Me.ImageList1.ImageSize.Height
e.ItemWidth = Me.ImageList1.ImageSize.Width
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case (ComboBox1.SelectedIndex)
Case 0
TextBox1.ForeColor = Color.Red
Exit Select
Case 1
TextBox1.ForeColor = Color.Yellow
Exit Select
End Select
End Sub
 How i display corresponding color name in that combo box.
|
|
|
|
|
well - you managed to show the images .. the text is much simpler. Just add the following line just after your e.Graphics.DrawImage line:
<br />
e.Graphics.DrawString(items(e.Index),me.Font,Brushes.Black,e.Bounds)<br />
(didn't test it so there might be a typo but I guess you get the idea)
BTW: you should but handle the case where the current cell is focused - normaly you use the e.DrawFocusRectangle() but this is not the way here - maybe just draw a shading (with an almost transparent brush) over your picture?
|
|
|
|
|
I cant get .In Imagelist i used bmp image to set that color.When i typed the code that u given.Its not worked.Pls help me
|
|
|
|
|
sorry - did miss the problem with the items-list
you need to declare this not as a local variable in the constructor but as a private class field.
BTW: if you would say what error message you get we could help you better
|
|
|
|
|
Hi,
I want to encrypt a string in a text field and decrypt the value and display in another text field. Can anyone provide me a code for this in vb.net. Thanks in advance..
|
|
|
|
|
Have a look at the "System.Security.Cryptography.RijndaelManagedTransform" class.
The MSDN-help will provide you with infos and examples how to use this.
|
|
|
|
|
I tried the following code for encrypting and decrypting. I have encrypted a string in button1_click event. The problem here is that I cant able to pass the encrypted value in button2_click event...
Can anyone help me out to find what the problem here is????
Imports System
Imports System.Security.Cryptography
Imports System.IO
Partial Class _Default
Inherits System.Web.UI.Page
Public original As String
Public roundtrip As String
Public encrypted As Byte()
Public myRijndael As New RijndaelManaged()
Function encryptStringToBytes_AES(ByVal plainText As String, ByVal Key() As Byte, ByVal IV() As Byte) As Byte()
' Check arguments.
If plainText Is Nothing OrElse plainText.Length <= 0 Then
Throw New ArgumentNullException("plainText")
End If
If Key Is Nothing OrElse Key.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
If IV Is Nothing OrElse IV.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
Dim msEncrypt As MemoryStream = Nothing
Dim csEncrypt As CryptoStream = Nothing
Dim swEncrypt As StreamWriter = Nothing
Dim aesAlg As RijndaelManaged = Nothing
Try
aesAlg = New RijndaelManaged()
aesAlg.Key = Key
aesAlg.IV = IV
Dim encryptor As ICryptoTransform = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV)
msEncrypt = New MemoryStream()
csEncrypt = New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
swEncrypt = New StreamWriter(csEncrypt)
swEncrypt.Write(plainText)
Finally
If Not (swEncrypt Is Nothing) Then
swEncrypt.Close()
End If
If Not (csEncrypt Is Nothing) Then
csEncrypt.Close()
End If
If Not (msEncrypt Is Nothing) Then
msEncrypt.Close()
End If
If Not (aesAlg Is Nothing) Then
aesAlg.Clear()
End If
End Try
Return msEncrypt.ToArray()
End Function
Function decryptStringFromBytes_AES(ByVal cipherText() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As String
' Check arguments.
If cipherText Is Nothing OrElse cipherText.Length <= 0 Then
Throw New ArgumentNullException("cipherText")
End If
If Key Is Nothing OrElse Key.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
If IV Is Nothing OrElse IV.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
Dim msDecrypt As MemoryStream = Nothing
Dim csDecrypt As CryptoStream = Nothing
Dim srDecrypt As StreamReader = Nothing
Dim aesAlg As RijndaelManaged = Nothing
Dim plaintext As String = Nothing
Try
aesAlg = New RijndaelManaged()
aesAlg.Key = Key
aesAlg.IV = IV
Dim decryptor As ICryptoTransform = aesAlg.CreateDecryptor(aesAlg.Key, aesAlg.IV)
msDecrypt = New MemoryStream(cipherText)
csDecrypt = New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)
srDecrypt = New StreamReader(csDecrypt)
plaintext = srDecrypt.ReadToEnd()
Finally
If Not (srDecrypt Is Nothing) Then
srDecrypt.Close()
End If
If Not (csDecrypt Is Nothing) Then
csDecrypt.Close()
End If
If Not (msDecrypt Is Nothing) Then
msDecrypt.Close()
End If
If Not (aesAlg Is Nothing) Then
aesAlg.Clear()
End If
End Try
Return plaintext
End Function
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
original = TextBox1.Text
encrypted = encryptStringToBytes_AES(original, myRijndael.Key, myRijndael.IV)
// "Trying to pass this encrypted value in button2_click event"
TextBox2.Text = Convert.ToBase64String(encrypted)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
roundtrip = decryptStringFromBytes_AES(encrypted, myRijndael.Key, myRijndael.IV) //"shows encrypted value is nothing"
TextBox2.Text = roundtrip
End Sub
End Class
|
|
|
|
|
Hi,
The simplest method of doing this is change the asci value of each character in the string to encrypt and to decrypt string convert acsi to its orignal value.
Hope this helps![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
|
|
|
|
|
Hi,
can u tell me how to convert strings like
12/06/2020 ,12-06-2007 etc in date format.
ex: 12/06/2007-------> 12-Dec-2006
12-06-2007-------> 12-Dec-2006
thanks & regards
|
|
|
|
|
Check this out _ I never used it myself - but stumbled over it over the last few days when trying to fix my late binding issue ..
It copied out of the Help index
Imports System
Public Class ChangeTypeTest
Public Shared Sub Main()
Dim d As [Double] = - 2.345
Dim i As Integer = CInt(Convert.ChangeType(d, GetType(Integer)))
Console.WriteLine("The double value {0} when converted to an int becomes {1}", d, i)
Dim s As String = "12/12/98"
Dim dt As DateTime = CType(Convert.ChangeType(s, GetType(DateTime)), DateTime)
Console.WriteLine("The string value {0} when converted to a Date becomes {1}", s, dt)
End Sub 'Main
End Class 'ChangeTypeTest
|
|
|
|
|
DateTime.TryParseExact method or TryParse/Parse with the right culture
|
|
|
|
|
Hi,
This is perfect
Date.Today.ToString("d-MMM-yyyy") to get the way we want.
u have to use , dd-M-YY (Format) like this for this search in net .
dvs
|
|
|
|
|
Hi,
Try this one
<br />
Dim d As Date<br />
Dim s As String<br />
s = "17-12-2007"<br />
d = CType(s, Date)<br />
s = Format(d, "d MMMM yyyy")<br />
MsgBox(s)<br />
Hope this helps 
|
|
|
|
|
i am converting a consloe application from vb to c#,
can anybody help me here how to do this efficiently...
am stuck with somekeyword... like
VB.Command()
.... and one more thing what will be equivalet to module in case of C#
T@SU
|
|
|
|
|
tasumisra wrote: am stuck with somekeyword... like
VB.Command()
No such thing in the VB.NET language. THis has to be an instance of some object with a method called Command. It's not in the .NET Base Class Library, so this has to be some 3rd party library or some other class that was written in this app.
tasumisra wrote: and one more thing what will be equivalet to module in case of C#
Modules are an outdated concept. There is no equivilent in C#, other than converting the code to a class and exposing the methods as static (Shared in VB.NET) methods.
|
|
|
|
|
Hi Guys
I want to change the F4 key on the combo box in vb.net 2005
By default, if the combo box has focus, and you press F4, it will open/drop down.
F4 is already used in my program, is it possible to change the key to for example F5?
Thank you very much.
|
|
|
|
|
there error appear in frist open the vb.net in "location : C:\program files\microsoft visual stdudio 8\common 7\ide \devenv.exe" and the can not run the project
|
|
|
|
|
|
i do this and the same error
|
|
|
|
|
maybe you can give us the error message?
|
|
|
|
|
the error message is"
location : C:\program files\microsoft visual stdudio 8\common 7\ide \devenv.exe
visual studio 2005 has aknown compatiblity issue with version of windows
then i download the "Visual Studio 2005 Service Pack 1 Update for Windows Vista" and appear this error
"the upgrade patch cannot be install by the windows installer service because the program to be upgrade may be missing , or the upgrade patch may update different version of the program . verify that program to be upgraded exists on your computer and you have the correct upgrade patch"
|
|
|
|
|
OK:
first you need the Service Pack 1 (without Update for Vista) and install this (make sure to take the right language).
then you can install the "Service Pack 1 Update for Vista" !
|
|
|
|
|
I've seen people ignore this message and continue on without any adverse affects.
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
How can i add a text and a corresponding value for it?
When i fill date to a combox from database,i need to get the corresponding value ie primary key of the selected text when i select a item from combobox.
Thanks
Yesu
|
|
|
|
|
Each Item of a combobox have Text and Value associated.For example
Dim oItem As ListItem = New ListItem()
oItem.Text = "your text"
oItem.Value = "Some ID"
you can use the SelectedValue property of a drop down to get the selected value
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
