Visual Basic

Re: Fields go missing [modified]

1-Jul-07 15:58

simple algorithm
declare array
dim myarray(1 to 10) as integer
...
for i = 0 to 9
read num from user
add num to listbox
myarray(i+1)=num 'remember indices in VB start at 1. list boxes are zero indexed.
loop

now that they're in an array and visibly in listbox you can start checking them

smallest = myarray(1) 'assume smallest is first one
for i = 2 to 10 'remember this is the array not listbox
if smallest > myarray(i) then 'if number is less that previous num then
smallest = myarray(i) 'assign smallest to number
loop
...bla bla bla
...do the same with the biggest...

-- modified at 22:05 Sunday 1st July, 2007

Re: Array problems

SHatchard2-Jul-07 2:18

SHatchard

2-Jul-07 2:18

You could do it simply by showing a textbox which allows comma seperated values and then validate the input and then call string.split, for example

Dim myString As String = "1,2,3,4,5,6,7,8,9,10" 'Would come from textbox

'Split the string on commas
Dim items() As String = myString.Split(","c)

'Ensure we have the correct amount of values
If items.Length <> 10 Then
Throw New Exception("Incorrect number of values")
End If

'Now do whatever you wanted with these values.

Fields go missing

Brendan Vogt1-Jul-07 14:07

Brendan Vogt

1-Jul-07 14:07

Hi,

I am in a spot on concern because I am stuck and do not know what to. All my processing happens on one page.

My page has a file upload control, with an upload button. When the upload button is clicked, it loads the file's contents into a dataset. It loops through the column names of the dataset and populates it to a textbox dynamically. Here the values can me altered and mapped to a database field. When I click the Import button, all the textboxes created are all gone. I do not know how to keep the textboxes there once the Import button is clicked because I need the values in the textbox.

Please can some one help me.

Regards
ma se

EvScott1-Jul-07 15:37

1-Jul-07 15:37

I take it you're using a control array of text boxes.
Perhaps they're not missing. Do something like this to show your textboxes

i=1 'set in form load
...button click
load text1(i) 'assuming you've set index to zero of the first textbox
text1(i).top = text1(i - 1).top + text1(i - 1).height 'set new box pos just below previous textbox
text1(i).visible = true 'show it
...
i=i+1'get ready for next click

-- modified at 21:43 Sunday 1st July, 2007

Re: Fields go missing

Brendan Vogt1-Jul-07 23:06

Brendan Vogt

1-Jul-07 23:06

Please check:

http://www.brendanvogt.com/SD_ImportExport3.jpg

When I click the Perform Import button then it all disappears. The drop down were created dynamically when I did a file upload.

PS: It wasn't textboxes, but drop downs.

ma se

Re: Fields go missing

EvScott2-Jul-07 2:40

combobox in DataGridView control

2-Jul-07 2:40

I Can't be of much help unless I see some code examples.
You're not setting any visible properties to false for the list ctrls are you?
Post the code for the Perform Import event.

manisghouri1-Jul-07 13:50

manisghouri

1-Jul-07 13:50

Hi, I am populating a grid from an array which contains a list of records. I have to include a combobox in the grid at runtime and combo should contain different items for each data row in the grid.

But when I create a DataGridViewComboBoxColumn and assign it to the grid, the combo items are same for each row, I have no idea how to create unique combo list to each row. I will appreciate if someone can help me

Thanks

Nas

Re: combobox in DataGridView control

sathesh pandian1-Jul-07 19:19

sathesh pandian

1-Jul-07 19:19

dear manish,

you have to add a new combolist everytime.

so in the itemdatabound column make sure the combolist is new or not.

then add the items there. it is very simple to check them.

All The Best

Sathesh Pandian

Virtual keyboard losing window focus. Help!

remarkpk111-Jul-07 13:32

remarkpk11

1-Jul-07 13:32

Hi Everyone,

I'm writing an application that implements an on-screen keyboard (because the Windows on-screen keyboard is extremely small and hard to use) and I'm having problems setting focus to the desired window in which the user wishes to type.

I'm using a few User32 API calls to get the active window handle number and then set the active window once I know what the handle is. This seems to be working OK. However, the window which has focus (the one receiving the typing) flickers as the user clicks on a key.

This is because as the user touches a key to type, it gives the keyboard focus and then immediately sends focus back to the window in which the user is typing, hence the flickering. So...

Question #1:

How can I eliminate the change of focus and always give focus to the desired window so that there is no flickering back and forth between my keyboard application and the window receiving the typing?

Question #2:

This is not just a standalone keyboard, but is a small part of a larger piece of software. Consequently, there are occasions when the user must use this on-screen keyboard to type into a window within it's parent application or into different forms within the app. One form contains a browser control to a company website. When they keyboard is used to type into any text field on a webpage displayed in the browser control, only every other word is sent to that text box. Two key strokes are required to output one letter. What could be a possible cause of this and how might I go about fixing it?

ANY suggestions or help is much appreciated. Code examples in VB.NET, VB 2005, and C# are fine. C++ OK too but only if it's immediately applicable and can be converted easily to VB.NET.

Thanks in advance to anyone who contributes!!!!

Patrick

MAPISession not fetching MS Outlook Emails

EvScott1-Jul-07 8:35

1-Jul-07 8:35

Hi,
I'm using MAPISession and MAPIMessage components to access MS Outlook emails but the "Fetch" does not retrieve any read emails.

The code I have is as follows:
...
MAPISession1.Username = "Outlook"
MAPIMessage1.DownloadMail = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Fetch
iNumOfMsgs = MAPIMEssages1.MsgCount 'iNumOfMsgs declared as a local var
...

iNumOfMsgs returns 0 when there are 100 read emails
Any help with this is very much appreciated

Breaking up strings

Brendan Vogt1-Jul-07 6:43

Brendan Vogt

1-Jul-07 6:43

Hi,

If I have text like:

VariantDisplayMode

How do I break it up so that it displays as:

Variant Display Mode?

Basically it is a seperation at the capital letters.

Regards
ma se

Guffa1-Jul-07 7:03

1-Jul-07 7:03

Use the Regex class with a regular expression pattern like "([a-z])([A-Z])" to find the changes from lower case to upper case. Put a space between them by replacing the occurances using the pattern "$1 $2".

---
single minded; short sighted; long gone;

TwoFaced1-Jul-07 10:47

TwoFaced

1-Jul-07 10:47

Guffa, I think that regular expression would fail to properly parse something like "ThisIsATest" because it wouldn't pick up on two capital letters next to one another. I think something like this would be required to find the word boundaries "([A-Z]|[a-z])(?=[A-Z])". Using a replace of "$1 ".

Guffa4-Jul-07 5:05

4-Jul-07 5:05

That's a good point. I didn't think of the special case of single letter words.

---
single minded; short sighted; long gone;

Bassam Saoud1-Jul-07 7:25

1-Jul-07 7:25

Another way would be to :
-Create a character Array of your text using ToCharArray()
-Test each character , if Caps add space before the character and add it to the resulting string otherwise add the character to the resulting string:

<code>
    Private Function TransFormText(ByVal oText As String) As String
        Dim oResult As String = ""
        Dim oArray() As Char = oText.ToCharArray()
        For Each oItem As Char In oArray
            If oItem. = oItem Then
                oResult = oResult & " " & oItem
            Else
                oResult = oResult & oItem
            End If
        Next
        Return Trim(oResult)
    End Function
</code>

Guffa1-Jul-07 8:10

1-Jul-07 8:10

You should however mention that the method scales very badly, so it's only suitable for very short strings.

For a string with 20 characters, it creates 40 string objects to produce the result. Also, for every additional character the memory usage doubles.

---
single minded; short sighted; long gone;

Bassam Saoud1-Jul-07 8:59

1-Jul-07 8:59

Guffa wrote:
You should however mention that the method scales very badly, so it's only suitable for very short strings.

For a string with 20 characters, it creates 40 string objects to produce the result. Also, for every additional character the memory usage doubles.

sure, But its a good starter.Obviously the poster is a beginner and in such cases its better to provide a solution that is easy to understand and that build up logic...

Guffa4-Jul-07 5:21

4-Jul-07 5:21

Well, at least it increases the traffic to the site when he comes back wondering why the code is getting so f... ehm... extremely slow. Wink | ;)

---
single minded; short sighted; long gone;

Bassam Saoud1-Jul-07 7:31

Re: Writing a text file....

1-Jul-07 7:31

There was an error in my previous post:

<code>
    Private Function TransFormText(ByVal oText As String) As String
        Dim oResult As String = ""
        Dim oArray() As Char = oText.ToCharArray()
        For Each oItem As Char In oArray
            If Char.ToUpper(oItem) = oItem Then
                oResult = oResult & " " & oItem
            Else
                oResult = oResult & oItem
            End If
        Next
        Return Trim(oResult)
    End Function
</code>

Writing a text file....

Psycho-^*Coder*-Extreme1-Jul-07 4:01

Psycho-^*Coder*-Extreme

1-Jul-07 4:01

I have a couple questions about writing a text file (Most of it know as I've been writing files in this application for quite some time now) but the real question I have is this: I am changing my error log text file to a comma delimited file. The first line with be my headers (Error, Message, Stack Trace, Date/Time) how do I go about only writing this line a single time, then go about adding any errors that may happen below it

"Well yes, it is an Integer, but it's a metrosexual Integer. For all we know, under all that hair gel it could be a Boolean."
Tom Welch

Bassam Saoud1-Jul-07 6:10