|
Hello,
[EDIT]Sorry about this, I thought it was in VB .Net and not VB6  . My answer is for VB .Net[/EDIT]
You will need to use Color.FromArgb.
Here's an example:
Dim pen As Drawing.Pen = New Drawing.Pen(Color.FromArgb(128, Color.Yellow))
I hope this helps,
Programmer2k4
My sig:
"The so-called 'Bugs' do not exist, they are merely features hidden by developers with message boxes that say 'An unhandled exception has occurred'." - Programmer2k4
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
|
|
|
|
|
For some reason, the CurrencyManager will not let me remove the last item in the collection. For example, if I have a CurrencyManager bound to a collection with a Form and Control bound to the CurrencyManager. I can remove any item from the CurrencyManager just fine with RemoveAt. However, if it is the last item , it simply ignores the call. It doesn't throw and error, it simply doesn't do anything. Count remains Same, Position remains 0. Even if I try calling CurrencyManagerVar.List.Clear(),
it ignores the call. Again, no error, just doesn't do anything.
But in my Another form it has worked fine with CurrencyManager.RemoveAt(CurrencyManger.Position)
Any Problem in my code?
My code is :
CurrencyManager.RemoveAt(CurrencyManager.Position)
I have also tried with
Dataview.Delete(CurrencyManager.Position)
And
Dataview.Delete(CurrencyManager.Count-1)
And also with
DatarowView = CurrencyManager.Current
DataTable.Remove(DatarowView.row)
above all are not working
rugfy
|
|
|
|
|
Hello,
I attach a textbox on the form. How can i check a text box for a valid email address. Means if user enters invalid address in a text box e.g (aaaa.com), then it will alert a message.
plz reply.
EsHbAn BaHaDuR
|
|
|
|
|
u can force user to enter valid email
u can force him to enter username(just username) in one textbox and domain(e.g. rediff, yahoo) in another
username (textbox here) @ domain(textbox here)
then u can cancatenate string as
dim str as string=textbox1.text+"@"+textbox2.text
i think this logic will work
all the best
|
|
|
|
|
That's a horrible solution considering it allows for all kinds of invalid characters in the address...
A better solution is to use a Regular Expression to do the validation. There are many examples of this all over the web.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Use a Regular Expression (RegEx class) to evaluate if the address is sytactically correct:
Public Function IsEmail(ByVal emailAddress As String) As Boolean
Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & _
@"\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & _
@".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
Dim re As New Regex(strRegex)
If re.IsMatch(emailAddress)
Return True;
Else
Return False
End Function
* Code snippet taken from this[^] Code Project article by Vasudevan Deepak Kumar.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i have installed IIS but compilation is not taking place
plz help me
|
|
|
|
|
Do you mean that IIS is not running your aspx pages?
Niklas Henricson
|
|
|
|
|
How hard is it to tell us what the error message is or to describe what is actually going on? FAR more detail about the problem is required, other than "It's broken." With what you've given us so far, all we can tell you is "It sucks to be you..."
<soapbox>
Can you tell I'm tired of question like these? It seems we're getting a rash of "When I do this, it doesn't work! Help!" WHAT DOESN'T WORK AND HOW? WHAT DOES IT DO/NOT DO? WHAT ARE THE ERROR MESSAGES?
</soapbox>
<i><b>RageInTheMachine9532</b></i><font size="-1">
"<i>...a pungent, ghastly, stinky piece of cheese!</i>" <b>-- The Roaming Gnome</b></font>
|
|
|
|
|
i had a microsoft access file db1 which contains various tables "table1","tabl2"
now wheni try to make connection through code, it is sending exception
here is my code snippet("i had imported system.data.oledb)
dim con as oledbconnection=new oledbconnection("provider=microsoft.oledb.jet.4.0; data source=.;initial catalog=db1;user id=admin; password=")
dim com as oledbcommand=new oledbcommand("select * from table1",con)
dim ds as new dataset()
dim adap as new oledbdataadapter()
adap.selectCommand(com)
adap.fill(ds,"table1") (exception here)
plz help me
i m new to vb.net
thanks
|
|
|
|
|
|
exception in system.data.dll
|
|
|
|
|
|
i m giving u my code snippet for ur convinience
Dim con As OleDbConnection = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;initial catalog=db1;data source=.,user id=admin, password=")
Dim ds As DataSet
Dim com As OleDbCommand
Dim adap As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
com = New OleDbCommand("select * from table1", con)
adap = New OleDbDataAdapter()
adap.SelectCommand = com
ds = New DataSet()
Try
adap.Fill(ds, "table1")
Catch ex As System.Exception
MsgBox(ex.Source)
MsgBox(ex.Message)
End Try
error source--->microsoft oledb service components
error message---> multiple step oledb generated errors. check each oledb status value, if available.
work not done
|
|
|
|
|
Of course it failed! You really messaged up the connection string.
Dim con As New OldDbConnection("Microsoft.Jet.OLEDB.4.0;Data Source=DB1.MDB")
This string, of source, assumes that the DB1.MDB file is in the same directory as the compiled .EXE your writing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i had already put the databse in the bn folder
and also the error is coming when i am trying to fill the dataset with the table
adap.fill(ds,"table1")
if i remove this line , the code does not give me any exception
|
|
|
|
|
sumit21 wrote:
if i remove this line , the code does not give me any exception
Meaningless considering your code would do anything at all without it. Your getting this exception (whatever it is, you've never told us!) because the .Fill statement goes to open the connection to the database and it fails. This is because the connection string is so screwed up. BTW: The Jet Provider doesn't understand "Initial Catalog"! That's for SQL Server providers!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi.. i'd like to get all the emails from an additional mailbox in outlook (not my personal account). how can i possibly do that without using POP3? i tried outlook automation but populating all the emails is very slow.. it takes up to 10 mins to load 2000+ emails. how can i possibly do that? pls help me.. i'm stucked on this project.. 
|
|
|
|
|
Where can I find a vb.net example on how to make an IE Explorer Bar? I saw some stuff on MSDN but I have no idea how to start something like that.
~(mm)8>
|
|
|
|
|
u can make it by using creating menus
u can add " file edit favorites tools help" in menu bar
then u can add ur own custom controls for button like
"back forward etc"
|
|
|
|
|
I can't find a VB.NET example, but there is a C# example here[^] on CP. This could be converted to VB.NET with some work...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm trying to read the Windows Registry and have been successful up to the point where I have to get a value other than type string. I know the key or at least I think the key is to use GetType(). I've looked at the GetType() under help but can not see an example on how to use it to determine if a Registry Value Name is what type. Here is a snippet of what I have been using to get the regvaluename of type string:
Dim RegKey As RegistryKey
Dim SubKey As String
Dim RegValueName As String
Dim RegValueData As String
RegKey = Registry.LocalMachine.OpenSubKey(SubKey, False)
RegValueData = RegKey.GetValue(RegValueName)
Now I understand that the problem is with "RegValueData" and its type but how do I change the code around so that this will work with data other than type "string"
Thanx in advance for any help/guidance into the right direction.
-Mark-
|
|
|
|
|
object RegValueData = RegKey.GetValue ?
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
GetType will return the type of the returned value, not the Registry Type. GetType can't tell that the value you read is REG_SZ or REG_BINARY. The Registry calss is a bit limited as it does conversions to standard types for you ( ) that in some cases are completely useless. The registry type that is stored is "interpreted" based of the value type information that is passed in
Note: When setting a value, the way in which the value being
passed is stored in the registry is interpreted. There is no way to control
whether the information being passed is stored as an sz, or an expanded_sz
string, and therefore, all string values are interpreted as standard sz
values.
Microsoft insist on doing this to make the Registry easier to handle, but IMHO, you get less control over exactly what REG type it used for some values.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello everybody. I have the following problem. I can connect to a database with a datagrid and display all records. But when i go to delete one it doesn't do it.
Code for populating datagrid
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from tblDevices", myConnection)
Dim ds As DataSet = New DataSet
da.Fill(ds, "tblDevices")
Dim dv As DataView = ds.Tables("tblDevices").DefaultView
DataGrid1.DataSource = dv
code for deleting
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
Dim cmd As OleDbCommand
myConnection.ConnectionString = connString
myConnection.Open()
Dim mySelectText As String = "Select * from tblDevices"
Dim myDataAdapter As New OleDbDataAdapter(mySelectText, myConnection)
myDataAdapter.DeleteCommand = New OleDbCommand("DELETE FROM tblDevices WHERE Item= '" & tempDevice & "' AND Booked= '" & txtBookedBy.Text & "' AND Date= '" & txtDate.Text & "' AND Time= '" & txtTime.Text & " '", myDataAdapter.SelectCommand.Connection)
myConnection.Close()
What am i doing wrong? 
Still trying to find the way
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
