Re: add chars to text at KEYPRESS - Visual Basic Discussion Boards

Joshua Quick9-Dec-05 13:30

9-Dec-05 13:30

You can get the current regional setting's date format via...
Application.CurrentCulture.DateTimeFormat.ShortDatePattern

Setting the date format is another matter. The above property is read-only, so the only way to change the date format just for your application is to overwrite your app's current CultureInfo.

Dim info As System.Globalization.CultureInfo<br />
info = System.Globalization.CultureInfo.CurrentCulture<br />
info = New System.Globalization.CultureInfo(info.LCID, True)<br />
info.DateTimeFormat.ShortDatePattern = "dd/MM/yyyy"<br />
System.Threading.Thread.CurrentThread.CurrentCulture = info

Re: Date conversion problem!!!!

Omar Mallat9-Dec-05 18:33

Omar Mallat

9-Dec-05 18:33

I know how to change a culture and read the date format for a culture, but I want to read the and set the date format of the windows, like if I go to Regional and languages control and change it...
Don't worry and thank you very much, but can you help me. I think that I can do a same thing using API (GetLocalInfo, SetLocalInfo), but still searching....

OmarMallat

pdf 2 image with itextsharp ??

darth_toni9-Dec-05 9:25

darth_toni

9-Dec-05 9:25

Hi all,
anyone knows if can convert a pdf page to image?
if so, where can i find examples? or anybody can tell me how.

thanks, an happy Xmas from Spain...

Hi !

abhishk2001@yahoo.com9-Dec-05 8:03

abhishk2001@yahoo.com

9-Dec-05 8:03

I have a web page, where after the users enters the data, they should be able to go back and modify data on all the pages. I am using ASP and VBSCript. I am using session variables and getting all the data, into the controls for modifying, but there is a page, which it has a radio button "yes" and "no", if you click yes, it shows more controls.

now, my question is when they come back to modify data and if the session values is yes, it is checked yes, but how shall I show the other controls without clicking on the radio buttons, or how to call the click event within the VBScript.

I need to call the "show('hideable1') method from VBScript if, the session value is yes....

Thanx,
abhi
example code....

onClick="show('hideable1')" name="radio_aspiration" value="yes" '<%if Session("rdaspiration") = "yes" then %>' checked '<%end if%>'> yes

' checked '<%end if%>'> no

abhi

Re: Hi !

Brent Lamborn9-Dec-05 10:53

Brent Lamborn

9-Dec-05 10:53

I would do something like this:

<script>
window.onload = LoadDefaults(<% Session("rdaspiration") %>);
</script>

<script>
function LoadDefaults(rdaspiration)
{
if (rdaspiration == "yes" ) { show("hideable1") }
else {show("hideable2") }
}
</script>

I think something like that should work. I didn't try it in a browser so the syntax may not be correct but the general idea should work.

"Half this game is ninety percent mental."
- Yogi Berra

add chars to text at KEYPRESS

Greeky9-Dec-05 2:45

Greeky

9-Dec-05 2:45

I wantto override Textbox class for date entry.
Format is gg.mm.yyyy
I wrote code below, but user enters 3. number for month, cursor goes to begining of the date.
what do u offer me. (I CANT USE MASKEDTEXTBOX, because clients use Windows ME)

 Private Sub DateTimeExtended_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress<br />
        Dim asciiInteger As Integer = Asc(e.KeyChar)<br />
        Select Case asciiInteger<br />
            Case 48 To 57 'Sayi<br />
select case me.text.length<br />
case 2: me.text &= "."<br />
case 5: me.text &= "."<br />
end select<br />
                e.Handled = False<br />
            Case 8 'Backspace<br />
                e.Handled = False<br />
            Case Else<br />
                e.Handled = True<br />
        End Select<br />
    End Sub

Re: add chars to text at KEYPRESS

Roy Heil9-Dec-05 7:33

Roy Heil

9-Dec-05 7:33

You need to set the cursor back to the end of the string. You can do that with the following line:
DateTimeExtended.SelectionStart = me.text.length
However, this would still cause problems, for instance, if the length is 5, and you go back and change character 2. You need more length checking. Try the following code:

Private Sub DateTimeExtended_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress<br />
Dim asciiInteger As Integer = Asc(e.KeyChar)<br />
Dim currentPosition As Integer<br />
Select Case asciiInteger<br />
Case 48 To 57 'Sayi<br />
currentPosition = Me.SelectionStart<br />
If currentPosition = Me.Text.Length Then<br />
Select Case Me.Text.Length<br />
Case 2<br />
Me.Text &= "."<br />
currentPosition = currentPosition + 1<br />
Case 5<br />
Me.Text &= "."<br />
currentPosition = currentPosition + 1<br />
End Select<br />
End If<br />
Me.SelectionStart = currentPosition<br />
e.Handled = False<br />
Case 8 'Backspace<br />
e.Handled = False<br />
Case Else<br />
e.Handled = True<br />
End Select<br />
e.Handled = False<br />
Case 8 'Backspace<br />
e.Handled = False<br />
Case Else<br />
e.Handled = True<br />
End Select<br />
End Sub

Roy.

Re: add chars to text at KEYPRESS

Roy Heil9-Dec-05 7:54

Roy Heil

9-Dec-05 7:54

Please note that this still doesn't format dates if you are pasting data into the control.

The more conditions you try to cover, the more complex your code will be.

Good luck.

Roy.

Re: add chars to text at KEYPRESS

George B Gilbert9-Dec-05 9:30

George B Gilbert

9-Dec-05 9:30

Instead of trying to anticipate all possible keystrokes that the user may press in the date textbox, I prefer to wait until the user is done and presses OK before validating the date. I let the user enter whatever they want and then edit the complete textbox contents. Here are two generic date textbox tests that I normally apply in my data editing procedure.

'** A date is required
If txtDate.TextLength <= 0 Then
MsgBox("A date is required")
txtDate.Focus()
Exit Sub
End If
'** The date must be a valid date
If IsDate(txtDate.Text) Then
'** Ensure the date is complete and properly formatted
txtDate.Text = CDate(txtDate.Text).ToShortDateString
Else
MsgBox("The date is not valid")
txtDate.Focus()
Exit Sub
End If

Another advantage of this code is that it uses the Windows region settings, so you don't have to be concerned with formatting the date correctly for the user.

Do or not do. There is no try.

setup wizard and registry handling

Asim N.8-Dec-05 23:17

Asim N.

8-Dec-05 23:17

I want to know how can i check whether certain key value exist in registry while using Visual Studio 2003 IDE for a Setup Wizard.

I want to do this programmatically.

Regards,
Asim

Re: setup wizard and registry handling

George B Gilbert9-Dec-05 9:39

George B Gilbert

9-Dec-05 9:39

Imports Microsoft.Win32
Public Function ReadRegKeyValue(ByVal KeyName As String, _
ByVal ValueName As String) As String
' Read the value of an existing registry key
' Pass: KeyName Name or path of the registry key for which the
' value is being read
' Return: String The sub key value (zero length string if the
' sub key does not exist)

' Create an instance of the RegistryKey class from the Microsoft.Win32 namespace
Dim RegObject As RegistryKey
Dim RegKeyValue As String

' Retrieve the sub key value
Try
RegObject = Registry.LocalMachine.OpenSubKey(KeyName, False)
RegKeyValue = CType(RegObject.GetValue(ValueName, ""), String)
RegObject.Close()
Catch
RegKeyValue = ""
End Try
Return RegKeyValue
End Function

Do or not do. There is no try.

Re: setup wizard and registry handling

Curtis Schlak.9-Dec-05 10:28

Curtis Schlak.

9-Dec-05 10:28

If you are doing this in a custom action, then I recommend the previous poster's answer.

If you are doing this to check for the existence of a key and want to know its value, then perform the following steps:

Right click on your setup project in the Solution Explorer
Choose View > Launch Conditions from the context menu
Right click on "Search Target Machine" in the Launch Conditions window
Choose "Add Registry Search"
Name the new item and fill out its properties in the Properties viewer

Now that property that you've created for the value of the registry key will hold the value that you sought.

"we must lose precision to make significant statements about complex systems."
-deKorvin on uncertainty

Re: setup wizard and registry handling

Asim N.9-Dec-05 15:45

Asim N.

9-Dec-05 15:45

Thank you Curtis.

Yes, this is what i was interested in.
The other post was just about registry action using vb.net and not about what i asked!

Regards,
Asim

Re: setup wizard and registry handling

Curtis Schlak.11-Dec-05 9:33

Curtis Schlak.

11-Dec-05 9:33

Asim,

Glad to help. Happy coding!

"we must lose precision to make significant statements about complex systems."
-deKorvin on uncertainty

How can I mount an image in VB.NET

Weddi8-Dec-05 22:48

Weddi

8-Dec-05 22:48

I used to use ConnectNetworkDrive in VB6. Is there a way to do that in VB.NET?

TIA

Re: How can I mount an image in VB.NET

Dave Kreskowiak9-Dec-05 5:47

Dave Kreskowiak

9-Dec-05 5:47

ConnectNetworkDrive is not part of VB6, not is it a function in the Win32 API. Where did this function come from? If you can get that code, you can translate it to equivilent code in VB.NET.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

clearing a combobox

microuser_20008-Dec-05 21:55

microuser_2000

8-Dec-05 21:55

hellow t all ..
i am trying to clean a combobox from the selection ,
i use the combobox.selectedvalue = -1
it clear the combobox but still return to me the selectedvalue as -1

thx for anyhelp

Re: clearing a combobox

Asim N.8-Dec-05 23:19

Asim N.

8-Dec-05 23:19

try to use combobox.selectedindex = -1 instead of combobox.selectedvalue = -1

Thats it. If it don't clear then use the same twice!

Regards,
Asim

Re: clearing a combobox

microuser_20009-Dec-05 0:50

microuser_2000

9-Dec-05 0:50

i had tryied it it wont work !
selectedindex - 1 pick the item befor the one that i had picked

Re: clearing a combobox

Asim N.9-Dec-05 2:39

Asim N.

9-Dec-05 2:39

I said : combobox.selectedindex = -1 and not combobox.selectedindex -1 !

Try the above thing and it would work!

Regards,
Asim

Check the instance of an object

biglewy8-Dec-05 21:19

biglewy

8-Dec-05 21:19

Hi,
I need some help. How can I verify if an object has no instance.
I need to know if my object is nothing, to prevent the object null reference exception.

Thanks in advanced.

biglewy

Re: Check the instance of an object

Asim N.8-Dec-05 23:22

Asim N.

8-Dec-05 23:22

try to use :

if not OBJECT is nothing then
// Code here...
end if

Regards,
Asim

DataBase Checking Table Exist or Not

Sasmi8-Dec-05 19:51

Sasmi

8-Dec-05 19:51

Hai Guys,
i want to check the existance of a table in specific database.
now i am using it as
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.Open "Select * From Employee"
if the Table not Found it give me error
but i think there is another way of checking it so can any one help me...

Sasmi

Re: DataBase Checking Table Exist or Not

abhinish8-Dec-05 23:38

abhinish

8-Dec-05 23:38

Hi Sasmi

use the database in which u want to check the table

then write this query

select name from sysobjects where type='u' and name =<table name>

type ='u' means user table

this will help

abhinav

Using Store Procedure that using dblink in VB.NET

lucdt8-Dec-05 19:33

lucdt

8-Dec-05 19:33

Hi all !
I am 2 oracle Server !
In Oracle A, I create a store procedure using dblink to Oracle B to query data.

I buil a application in VB.net. And connect to Oracle A anh use this Procedure but I allway the error:
"database Client not begin transaction"

Athought , I add transaction but this error still occur

Pls, help me, bug it !
Thank alot !

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.