Visual Basic

Re: View binary equivalent to data variable

2-Aug-07 7:28

Hi Cory,

still trying to tame the CRC beast?

for bit-oriented stuff I usually use hexadecimal format; it shows four bits
at a time, keeping the strings a lot shorter.
For some basic types the ToString() method accepts an optional format parameter,
so int.ToString("X8") generated an 8-digit hex string (forcing leading zeroes).
AFAIK byte type does not support this.

Maybe there also is a code to order bit formatting, but I would never use
it, the binary strings get too long.
if a really would like to have a binary format I would write my own converter,
that inserts a comma after every 4 bits

this is an attempt in C#, you would have to create your own in VB;
it works from right to left, because that's how I like to do this
(the lowest bit has value 1, doing it this way I never need the highest bit).

public static string ToBinary(uint val) {
    string s="";
    for (int i=8; i>0; i--) {        // 8 nibbles in a 32-bit uint
        for (int j=4; j>0; j--) {    // 4 bits per nibble
            string c="0";
            if ((val & 1)!=0) c="1";
            s=c+s;                   // prefix a binary digit
            val=val>>1;              // shift right by one position
        }
        if (i!=1) s=","+s;           // prefix a separator per nibble
    }
    return s;
}

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

Cory Kimble2-Aug-07 9:15

Cory Kimble

2-Aug-07 9:15

Thank you. Success!!!!!

shortcuts

Tom Deketelaere2-Aug-07 3:19

2-Aug-07 3:19

anyone know how I can easily add a shortcut to a button or label or any other control?

I can capture the keydown event of a form but doesn't always work so not excatly the best solution

Luc Pattyn2-Aug-07 7:34

2-Aug-07 7:34

Hi,

if you mean a shortcut such as CTRL/C for copying (in most apps), then this
is both the easiest and the best way:

- add menus to your app;
- for each action that you want to have a shortcut, make a menu item, and
set it's ShortCut property.
- obviously, perform the required logic inside the menu item's click handlers.

As long as the menus are enabled, your shortcuts work. No need to process key
events at all.

And it is the best way since now:
- the user can choose to use the keyboard for the shortcut, or the mouse to
click the menu item
- and the user can SEE the shortcut as it gets displayed in the menus.

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

Tom Deketelaere2-Aug-07 8:01

2-Aug-07 8:01

yeah there are a few problems with this
I don't use a menu (I use a ribbon)
and on every form the same button can have a different action now I could probably write this but if you consider the fact that the project consist out of serveral hunderds of forms I'm afraid this will take a lot of code and time.

And the worsed part of it all is I got it working perfectly (and I only had to write 2 lines of code in each form(very acceptable)) for vb.net controls and so on but we work with a component called datawindows and because of that component it doesn't work anymore

I guess I'll have to take the hard way then Sniff | :^)

thanks anyway

Luc Pattyn2-Aug-07 8:07

2-Aug-07 8:07

You are aware of Form.KeyPreview property ? Maybe it can help and solve your
problem, and maybe not at all.

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

Tom Deketelaere2-Aug-07 9:53

Re: count of rows in datarow

2-Aug-07 9:53

it's set to true
I did need it form the vb.net part (if a textbox had focus the keydow of the form wasn't triggerd with keypreview on it is triggerd)
but it doesn't solve the problem with the component

count of rows in datarow

SamRST2-Aug-07 3:17

SamRST

2-Aug-07 3:17

hi frnds..
i have a function that return a DATAROW , in another , i want to check that datarow has any values ie any row, or its nothing.. how can i..
cheers...
D'Oh! | :doh:

ctlqt122-Aug-07 3:36

ctlqt12

2-Aug-07 3:36

Hello,

You can try this :

        <br />
        Dim dr() As DataRow<br />
        dr = ds.Tables(0).Select("id > 'o'") 'ds is a DataSet<br />
        If (dr.GetLenght(0) = 0) then<br />
           'Has no row<br />
        Else<br />
           'Has row<br />
        End if<br />
<br />

Re: count of rows in datarow

SamRST2-Aug-07 3:52

SamRST

2-Aug-07 3:52

but i'm sending only 1 row and not recieving an array ..

Re: count of rows in datarow

ctlqt122-Aug-07 4:04

ctlqt12

2-Aug-07 4:04

Hello,

you can try this

If dr Is Nothing Then ' dr is DataRow<br />
           MessageBox.Show("Row has no value")<br />
       Else<br />
           MessageBox.Show("Row has value")<br />
       End If

send data from listbox to an array variable

sixecho2-Aug-07 2:28

sixecho

2-Aug-07 2:28

Dim qq As Array

qq = ListBox1 ''''' it didn't work

can any one help me with this problem?????

Re: send data from listbox to an array variable

Tom Deketelaere2-Aug-07 2:44

2-Aug-07 2:44

first of all do you get an error?? (if so please post it)

second: you are trying to convert an control of the type listbox to an array (with this code) that will not work

you will probaly have run trough you'r listboxitems and add them to the array

Dim qq As String() = {0}
for each l as listboxitem in listbox1.itmes
qq(0) = l.text
next

or something like this

Calculating employee age

x-Taka-x2-Aug-07 1:43

x-Taka-x

2-Aug-07 1:43

Hi there..
Im trying to write an application that calculates an employee's age. The user needs to enter the day, month and year separately into provided textboxes..
Within the button_click event:
Dim FirstDate As String
Dim SecondDate As Date
Dim pAge As Long

FirstDate = (txtDay.Text & txtMonth.Text & txtYear.Text)
SecondDate = CDate(FirstDate)

pAge = DateDiff(DateInterval.Day, Now, SecondDate)
MsgBox (pAge)

Please can someone tell me if this piece of code is correct... im also getting an error, stating :
"Exception System.InvalidCastException was thrown in debuggee:
Conversion from string "02121980" to type 'Date' is not valid."

02121980 is the day, month, year entered into textboxes.
Please help!
Thanks

DA_Loring2-Aug-07 1:50

DA_Loring

2-Aug-07 1:50

Try putting seperators in the dates, either - or / so you get 02-12-1980 or 02/12/1980

David Loring
!! Keep Music Live !!

_Damian S_2-Aug-07 2:03

_Damian S_

2-Aug-07 2:03

And to be sure you won't be screwed over by the regional settings on any PC it's on, format it in yyyy-mm-dd format.

-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!

Tom Deketelaere2-Aug-07 2:06

2-Aug-07 2:06

since you already have the day,month,year seperatly this might be the easist way to do it

Dim month As Integer = 12<br />
        Dim year As Integer = 1983<br />
        Dim day As Integer = 3<br />
        Dim d As Date<br />
        d = New Date(Year, Month, Day)

Luc Pattyn2-Aug-07 7:38

2-Aug-07 7:38

It is, there is no point in turning it into a string first, and then
get into trouble about regional settings...

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

x-Taka-x2-Aug-07 8:53

x-Taka-x

2-Aug-07 8:53

Thanks 4 all the help!!
Big Grin | :-D

x-Taka-x2-Aug-07 8:49

x-Taka-x

2-Aug-07 8:49

Thanx a million TDDragon, it works... although i just took out the values, and made the integers to string values..and
the variable d is deducted from current date.. THANK You!!!!
THANK YOU!!
THANK YOU!! Big Grin | :-D

Tom Deketelaere2-Aug-07 9:54

2-Aug-07 9:54

always glad to help someone Big Grin | :-D