Re: Visual Basic - Visual Basic Discussion Boards

ssa20107-Jul-12 21:34

ssa2010

7-Jul-12 21:34

I have a vb6 application that contain various drop down menus.
Some user has not permitted to access some menus.
For the purpose Logged in as administrator and list all menus in the application and select a user and check or uncheck whether this user access that menu.
But how can I list all menus in the application without manually enter menu name ? Because when we add new menu in the application, I manually add these menu name in list. And If menu no is 100 or 150 then it is difficult to enter the menu name or control them. So I want the code for list all menus in the application automatically. Please help me.

Re: List out all menus in vb6 application

Nick Otten8-Jul-12 20:48

Nick Otten

8-Jul-12 20:48

I'm a little confused to where you refer to drop down controls and drop down item. but the item once can be done pretty easily by code

dropdownbox.items.add("object, a string as name for example")

with a loop and some if/else statements you should be able to filter what you add by the users permissions.

Re: List out all menus in vb6 application

ChandraRam8-Jul-12 22:37

ChandraRam

8-Jul-12 22:37

Enumerate all objects of type "Menu" in the form and add it to a list from where an administrator can decide to grant permissions.

For instance:

for each myControl in myForm.Controls
  if typeOf myControl is Menu then

and so on...

Re: List out all menus in vb6 application

ssa201016-Jul-12 19:38

ssa2010

16-Jul-12 19:38

<pre lang="sql">Ok. thats working.

Then my next doubt is how can I identify main menus and sub menus</pre>

Visual Basic

mainshotime7-Jul-12 13:47

mainshotime

7-Jul-12 13:47

I'm starting in my intro to programming class. New to this side of computers. My teacher isn't much help so I"m falling behind. Can't get rid of the errors in my code. Pseudocode is supposed so simple from what I hear. If someone can help me do a simple program with this algorithm that would be awesome. Thanks a lot.

Re: Visual Basic

Wes Aday7-Jul-12 14:35

Wes Aday

7-Jul-12 14:35

mainshotime wrote:
My teacher isn't much help

Get another teacher or talk to a TA

mainshotime wrote:
Pseudocode

Pseudocode is simple. It's supposed to be. Pseudocode is not program code!

mainshotime wrote:
Can't get rid of the errors in my code

Funny, I do not see an single error in any of the code that you posted.

mainshotime wrote:
a simple program with this algorithm

A simple program using what algorithm? You have not posted one word about what it is that you are trying to do.

We are not teachers here either. You will probably not find one single person here willing to do your homework for you. If you get into trouble, then we can help. Post the code that you are having trouble with and ask a clear, concise question and I am sure that someone will be able to help you.

Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Please stand in front of my pistol, smile and wait for the flash - JSOP 2012

Re: Visual Basic

Midnight Ahri8-Jul-12 22:15

Midnight Ahri

8-Jul-12 22:15

my teacher is so helpful, so i'm flying in front, i have no error.
i have an awesome simple program with that algorithm, you are welcome.

Re: Visual Basic

Eddy Vluggen10-Jul-12 0:59

Eddy Vluggen

10-Jul-12 0:59

mainshotime wrote:
Can't get rid of the errors in my code. Pseudocode is supposed so simple from what I hear.

How about you show us your pseudo-code? There can't be any syntax-errors in there, nothing that would keep it from compiling, since there's no fixed set of rules to how pseudo should look. It's merely a description of what the computer should do, in a semi-structured way. Comes very close to how a cook describes baking an omelet;

Get a pan
Put it on the stove, turn on the gas
Throw in some gravy
ADD BACON
Do three times:
- Crack egg
- Add egg to gravy
Heat five minutes
Eat

I just "made up" the description above, and making up things is usually considered "easy" - there can hardly be an error in above description (if you don't count that the gas is still running when you're eating). If it's wrong according to your teacher, then he sure as Hell should take time to explain why it is wrong in his view and how you can rectify that. If he can't, ask management whether they can replace the babysitter in the class with a teacher.

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

On-Screen Keyboard code

grigorffef6-Jul-12 12:21

grigorffef

6-Jul-12 12:21

I need the on-screen Keyboard codes, which can be written in different languages (keyboard language),please help mi<pre lang="text">

Re: On-Screen Keyboard code

Wes Aday6-Jul-12 14:20

Wes Aday

6-Jul-12 14:20

Something tells me that you do not really understand what this site is all about.

Re: On-Screen Keyboard code

Midnight Ahri8-Jul-12 22:19

Midnight Ahri

8-Jul-12 22:19

grigorffef wrote:
I need the on-screen Keyboard codes, which can be written in different languages (keyboard language),please help mi

start -> on-screen keyboard -> enter();

Another Lambda Expression Problem

Sonhospa6-Jul-12 8:08

Sonhospa

6-Jul-12 8:08

Hello again,

it seems that code translation tools have their problems with Lambda expressions – different from my own Frown | :(

but still ... Maybe you can help me again:

C#-code

EventHandler<MailPoppedEventArgs> local = this.MailPopped;
if (local != null){local(this, new MailPoppedEventArgs(index, message, size, uidl, receivedTime));}

has been translated to VB.NET this way:

Dim local As EventHandler(Of MailPoppedEventArgs) = Me.MailPopped
If local IsNot Nothing Then local(Me, New MailPoppedEventArgs(index, message, size, uidl, receivedTime))

The resulting error message reminds me that 'MailPopped' is an event so that a 'RaiseEvent' construction is needed. But which would be a proper syntax for the above expression? Confused | :confused:

Thank you in advance
Mick

Re: Another Lambda Expression Problem

Wayne Gaylard6-Jul-12 21:38

Wayne Gaylard

6-Jul-12 21:38

It would look something like this

Dim local As EventHandler(Of MailPoppedEventArgs) = Me.MailPopped
RaiseEvent local(Me, New MailPoppedEventArgs(index, message, size, uidl, receivedTime))

Hope this helps

When I was a coder, we worked on algorithms. Today, we memorize APIs for countless libraries — those libraries have the algorithms - Eric Allman

Re: Another Lambda Expression Problem

Sonhospa8-Jul-12 5:19

Sonhospa

8-Jul-12 5:19

Hi Wayne, I'm going to check it out asap. Thanks for your help! Thumbs Up | :thumbsup:

Re: Another Lambda Expression Problem

Dave Doknjas8-Jul-12 11:15

Dave Doknjas

8-Jul-12 11:15

You'll need to use the hidden VB event field (add "Event" to the event name):

Dim local As EventHandler(Of MailPoppedEventArgs) = Me.MailPoppedEvent

David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com

Lambda Syntax

Sonhospa6-Jul-12 3:06

Sonhospa

6-Jul-12 3:06

Hello everybody,

I've been converting a project to VB (Express 2010) and have to face a bunch of errors it Lambda expressions – probably resulting from the conversion tool. The errors are "expression has no value" (German equivalent / I hope the translation is correct). The code looks like this:

mainDispatcher.Invoke(CType(Function() logs.Add(New LogInfo() With {.Line = e.Line}), Action), Nothing)

The underlined part is the error marker. Could you please help me find the correct Lambda expression?

Thank you,
Mick

Re: Lambda Syntax

Dave Kreskowiak6-Jul-12 3:43

Dave Kreskowiak

6-Jul-12 3:43

I don't see where logs.Add would return a value, so shouldn't that be

mainDispatcher.Invoke(CType(Sub() logs.Add(New LogInfo() With {.Line = e.Line}), Action), Nothing)

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Lambda Syntax

Sonhospa6-Jul-12 5:52

Sonhospa

6-Jul-12 5:52

That makes sense, Dave, and I've tried it before - but also with an errorous result. In the changed expression there doesn't seem to be an overload for 'invoke' ...

Still you helped me on the way Thumbs Up | :thumbsup:

: Leaving the 'nothing' parameter away finally did the trick.

mainDispatcher.Invoke(CType(Sub() logs.Add(New LogInfo() With {.Line = e.Line, .Response = True}), Action))

Thank you, and kindest regards from Munich / Germany

Mick Wink | ;)

Re: Lambda Syntax

Dave Kreskowiak6-Jul-12 9:47

Dave Kreskowiak

6-Jul-12 9:47

Whoops! Forgot to remove that... sorry! Big Grin | :-D

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

32 bit to 64 bit

shoniya6-Jul-12 2:13

shoniya

6-Jul-12 2:13

i am creating an .exe file in vb.net and running it on 64 bit but it is not running on 64bit the error is about database and one more thing is that am creating database with Ms-access.
How to create setup of MS-Access while creating .exe.

Re: 32 bit to 64 bit

Wayne Gaylard6-Jul-12 2:56

Wayne Gaylard

6-Jul-12 2:56

My guess is that you are using the Microsoft.Jet.OLEDB.4.0 provider to query the database. This does not have a 64 bit alternative, and so the solution is to make sure your application is compiled to run only in 32 bit mode. You can do this by going in to your application properties, then under the build tab, you must select x86 as your platform target, and recompile your app .

Hope this helps

When I was a coder, we worked on algorithms. Today, we memorize APIs for countless libraries — those libraries have the algorithms - Eric Allman

HELP

corperate4-Jul-12 9:34

corperate

4-Jul-12 9:34

I have developed a server application, and i used VB 6.0 but i try making it stand alone program which work but is not acessing my access database, what should i do for my program to access access
database after installing my application?

Re: HELP

Paul Conrad4-Jul-12 11:48

Paul Conrad

4-Jul-12 11:48

What have you done so far as to trying to connect to Access? Why use VB 6? It's been long dead, and why use Access, instead use SQL Server 2008 (full version or express, either depending on requirements)...

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

Re: HELP

Midnight Ahri4-Jul-12 15:09

Midnight Ahri

4-Jul-12 15:09

well, paul is right about VB6.
you don't have to be up-to-date, but that thing is too outdated.
try this or this.

Creating or changing tables in an access database

No-e3-Jul-12 8:33

No-e

3-Jul-12 8:33

Continuing to slug through a VB6 to VS2008 conversion. In VB6 I was able to modify Access databases and add tables using a bit of code similar to the following (simplified for explanation)

<pre lang="vb">MyTableDef = MyDb.CreateTableDef(tblName)
        ' record type
        For i = 1 To UBound(Fields)
            MyField = MyTableDef.CreateField(Fields(i), FieldType(i), Size(i))
            MyTableDef.Fields.Append(MyField)
        Next
        MyDb.TableDefs.Append(MyTableDef)
        MyDb.Close()
        Exit Sub
</pre>

Fields, FieldType and Size are arrays with a name, length and type of field to be created and appended.

I would like to duplicate this type of functionality using AD0 in VS2008. I know I can do it with a direct SQL command, but those could get real long and ugly. With this method I just add fields to an array and send them to this function.

Any suggestions?

Thanks in advance

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