|
A UI library exists to replace classes in your app and add extra 'look and feel'. To use this library, you need to rewrite your app, it's a C++ library.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hiya, I hope that you can help. Does anybody know how to force the 1st letter of each word in a TextBox to upper case as the key is pressed? The idea is that a user would be able to enter a name or address etc and the 1st letters of each word would automatically be changed to a capital letter WITHOUT the user having to hold down the shift key.
I was able to do this OK in VB6. I would just test the ascii value of the previous character that had been pressed. If the length of the string was zero OR the previous character was a space, I would just change the letter to upper case as shown below.
KeyAscii = Asc(UCase(Chr(KeyAscii)))
I know that the .Net TextBox has a CharacterCasing property but that just uppercases or lowercases all the characters.
Thanx
Rob
|
|
|
|
|
well , i hope i can help
in vb.net in the event :
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PrixVerreDP.KeyPress
see that e i wrote over ?? this is the stuff you look for
now write ascii = asc(e.keychar) to get the code ascii of the letter you typed
i hope this helped you
try to be good if you can't be the best
|
|
|
|
|
Thanks for your lightning response.
I was just surfing the web looking for an answer and found a suite of controls called ITTeamControls .Net. It extends the existing CharacterCasing property with a UpperFirst value. So there is no need for any coding. Think we might buy a few licences.
The product landing page is http://www.itteam.net/itteamcontrols.html[^]
Rob
|
|
|
|
|
I am trying to create an Editable Datagrid where all the users who logged in to the webpage can see the content. Yet only cerain users will be able to edit certain fields (It is a future work schedule, so the users will only be able to edit the rows that are part of their work schedule). There will be an administrator role who will be able to edit any row.
Teere will be a column on each row that will have the name of the person associated with each row, so I am thinking I could compare that against a Session variable with the login name to give access to the edit feature in the row. I can see that concept working, but I do not know how to aproach the datagrid to make this possible.
I am using VB.NET 2005 version, and was looking at the security tools included there to handle login (FormsAuthentication Class) but was unable to see how could I use it for my purposes?
Any ideas about this? 
Thanks
Fedaykinn, the Programming Fremen.
|
|
|
|
|
hellow to all ..
i am looking for doing an option in datagrids , when i click the right buttton of the mouse that i can view a menue with options to do ,
where i can find help on this issue ?
thxx
|
|
|
|
|
Did you mean vb.net datagrids?
You can add a context menu to the datagrid.
|
|
|
|
|
How to create the databse and how to add table in that databse through VB6.0.
If Table created, the 'Require Property' of column is set to 'NO'
i.e value may be NULL!
Thaks in advance
..........Rahul
Rahul here
|
|
|
|
|
I think you need to create the .mdb file in MS Access. After that you can create tables using connection and command objects to execute SQL statements. Here is a quick example of what I'm talking about:
Dim strConn as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\MyDatabase.mdb'"
Dim myConnection as System.Data.OleDb.OleDbConnection(strConn)
Dim myCommand as System.Data.OleDb.OleDbCommand
myCommand.Connection = myConnection
myCommand.CommandText = "CREATE TABLE MyTableName(Column1 varchar(20) NULL, Column2 decimal(5,2) NULL)"
Ooops...I work with VS 2003 and VS 2005, I'm not sure how this translates to VB6.
Hope this helps.
-- modified at 11:00 Friday 26th May, 2006
|
|
|
|
|
Hi all,
This is a very simple UserControl which only contains a button on it and when this button is clicked, it draws a Rectangle object on it. However, I am having a problem that this rectangle gets visually disappeared after it's covered by some other windows form(I hope you understand what I mean by this). I know that if I want to permanently maintain it I will have to draw it in the paint method because the paint method is called every time the control needs to redraw itself, however, I want to draw this rectangle only when the button is clicked so it doesn't seem appropriate if I place the code in the paint method.
So...would somebody please tell me the best way to resolve this problem that you can think of? I would love to know if there is more than one solution. Thank you very much to you all. 
<br />
Partial Public Class UserControl1<br />
Inherits UserControl<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Me.CreateGraphics.DrawRectangle(Pens.Blue, New Rectangle(60, 60, 40, 40))<br />
End Sub<br />
End Class<br />
<br />
|
|
|
|
|
The UserControl will be redrawn by the OS when the form is refreshed or the control is invalidated.
Your method paints the rectangle when the button is clicked but, does not provide for repainting of the control when other events cause it to be invalidated. Placing additional code in the OnPaint event is the standard method for persisting the painting of a control
You can make your clicked event rectangle image persist by placing code in the Button1 OnPaint event that paints one image if the control has been clicked (selected) and a different image if it has not been clicked.
in OnPaint Event
If <Button1 is clicked> then
<draw clicked image>
else
<draw unclicked image>
end if
|
|
|
|
|
Thanks a lot. This seems a nice approach. 
However, I am unable to find the method to determine if the button is clicked in the MSDN website. I was looking for something like IsClicked() or IsSelected() but I couldn't find it.
|
|
|
|
|
If the clicked button keeps the focus then you can use the focus property to determine how to paint the control. If it does not then you will need to create a boolean to store the clicked state. Initialize the boolean to false and in the buttons click event set it to true.
|
|
|
|
|
I am creating a picture gallery in which the user can scroll forward and backwards. How do I connect the pictures from my folder to the databse. What are the best controls and how to use them?
|
|
|
|
|
|
you can convert an image to a stream then store it to an access database
Dim ms As New MemoryStream<br />
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)<br />
Dim imageX() As Byte = ms.GetBuffer<br />
ms.Close()<br />
After this step you already have an image in bytes() - imageX
Now.. assuming you have an access database with three fields. Message, Name, and PiC (pic is an OLE Object in access)
You need to use an OledbCommand's Parameter to pass the values correctyl.
here's How to Do it.
<br />
oledbcommand1.Parameters.Clear()<br />
oledbcommand1.Parameters.Add(New OleDbParameter("@MESSAGE", OleDbType.WChar, 50)).Value = TextBox1.Text<br />
oledbcommand1.Parameters.Add(New OleDbParameter("@NAME", OleDbType.WChar, 50)).Value = TextBox2.Text<br />
oledbcommand1.Parameters.Add(New OleDbParameter("@PIC", OleDbType.Binary)).Value = image<br />
If VEN.Insert("INSERT INTO Table1 ( MESSAGE , NAME1 , PIC ) VALUES ( ? , ? , ? )") = 1 Then<br />
MessageBox.Show("Record Save!")<br />
Me.Close()<br />
End If<br />
ofcourse you need to setup a connection to an access database.
only images added trhough this method can be retireived.
to retrieve the image you need to reverse the step
<br />
Dim i As Integer<br />
If IsDBNull(TABLE.Rows(ROW)(iFIELD)) Then<br />
MsgBox("You Tried to View an Image from an empty record", MsgBoxStyle.OKOnly, "Unable to Display Image")<br />
Exit Sub<br />
End If<br />
Dim arrPicture() As Byte = CType(TABLE.Rows(ROW)("PIC"),byte())<br />
Dim ms As New MemoryStream(arrPicture)<br />
picturebox1.image = System.Drawing.Image.FromStream(ms)<br />
<br />
GUERVEN
Truth or Consequence
|
|
|
|
|
I am attempting to query my AD domain to determine a user's groups. Based on the group membership I can then redirect to a specific page/section. I'm using VB.NET to do the querying and have used numerous examples from this site and other sites.
My issue is related to the account that I'm using to query the domain. See my code below...
The only time that I'm able to retrieve any group membership is when the account (someacct) is a member of Domain Admins. I would like to use a generic account. What am I doing wrong?
<code>
Private Function UserADGroups(ByVal loginname As String) As String
Dim filterval As String, grplist As String, propval As String
Dim propcnt As Integer, I As Integer, eqpos As Integer, commapos As Integer
Dim adentry As New DirectoryEntry("LDAP://somedomain.com", "someacct", "somepassword")
Dim search As New DirectorySearcher(adentry)
filterval = "(sAMAccountName=" & loginname & ")"
search.Filter = filterval
Response.Write(filterval)
search.PropertiesToLoad.Add("memberOf")
Try
Dim srchresult As SearchResult = search.FindOne()
grplist = ""
If Not (srchresult Is Nothing) Then
propcnt = srchresult.Properties("memberOf").Count
For I = 0 To (propcnt - 1)
propval = srchresult.Properties("memberOf")(I)
eqpos = propval.IndexOf("=", 1)
commapos = propval.IndexOf(",", 1)
If (eqpos = -1) Then
grplist = ""
End If
grplist &= propval.Substring(eqpos + 1, (commapos - (eqpos + 1))) & "||"
Next
End If
Return grplist
Catch ex As Exception
If ex.GetType Is GetType(System.NullReferenceException) Then
Response.Write("NO GROUP FOR USER: " & loginname)
Else
Response.Write(ex.Message.ToString & "---" & ex.ToString)
End If
End Try
End Function
</code>
Josh Saiz
|
|
|
|
|
Hi ,
please i needed to compare two DataTables or even compare their two DataView attached to this datatables
i want that the record in the first line in the first column of the datatable1 beeing equal to the record in the first line i the first column in the datatable2
not just the first row other rows too 
the same thing if it done just on dataviews
thank you very much
try to be good if you can't be the best
-- modified at 17:20 Thursday 25th May, 2006
|
|
|
|
|
|
thnx man , i did aproximately the same yesterday with that for it solved the problem but i was asking if it is a methode in a class that do this job
may be giving it the two tables as a parameter or something
understand now ??
anyway you are really gentel thank you for your answear 
try to be good if you can't be the best
|
|
|
|
|
In design view i see the borders. When i run and view in web browser, there are no boarders, any idea how to fix this?
|
|
|
|
|
Border for what type of object?
|
|
|
|
|
I'm trying to use parameterized queries in VB6. I am using the Oracle ODBC driver version 9.02.00.00. All of the Oracle documentation states that I should be using a colon (: ) to identify the parameter (i.e. :myparam). However, I've found documentation that says I should be using a question mark (?). My code currently works if I have one parameter in a query (i.e. Select name, id, blah from tablename where id=? ). But if I have two parameters (i.e Select name, id, blah from tablename where id=? and blah=?), I receive the following error message.
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done
Of course this message doesn't help me at all.
Originally, I was expecting to create queries like "Select name,id,blah from tablename where (id= :Id and blah= :Blah) and then Append parameters to the Command object that is executing the query, but that doesn't seem to work.
Any thoughts or ideas are much appreciated.
-- modified at 16:11 Thursday 25th May, 2006
|
|
|
|
|
Hello, does anyone know if this is a bug or if I’m doing it wrong. I’m basically I’m using two For loops to filter out items from one list if they already exits on another (for dual list control). But when I remove a item from the list and I decrement the variable it looks like it does not decrement in memory therefore the inner loop will always read 23 even though I decrement the variable Sourcecounter. SO if outer loop has 2 items and inner loop has 23 and a item matches then I decrement the initial length of the inner loop by SourceLenght - 1. But the variable Sourcecounter will always go to 23 not 22.
Here is the sample
Dim DestinationLenght As Integer = 2
Dim SourceLenght As Integer = 23
Dim Destinationcounter As Integer
For Destinationcounter = 0 To DestinationLenght
Dim Sourcecounter As Integer
For Sourcecounter = 0 To SourceLenght
If Me.lstSource.Items(Sourcecounter).Text.ToString = Me.lstDestination.Items(Destinationcounter).Text.ToString Then
Me.lstSource.Items.RemoveAt(Sourcecounter)
Sourcecounter = Sourcecounter - 1
SourceLenght = SourceLenght - 1
End If
Next
Next
Thanks
|
|
|
|
|
The expressions in the For statement is calculated once when the loop is started, not every iteration.
---
b { font-weight: normal; }
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
