Visual Basic

14-Nov-14 6:14

I have vb.net but this must be done in vb6.0

Re: 3d walls ib vb6.0

Eddy Vluggen14-Nov-14 7:25

Eddy Vluggen

14-Nov-14 7:25

You "could" write it in VB.NET and integrate it into you legacy VB6-code. You can fake some 3d-ness depending on how you draw.

..but if it "must" be VB6, then I'm simply sorry Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

3d animation

Otekpo Emmanuel13-Nov-14 20:08

13-Nov-14 20:08

Good morning friends!
I am working on animation and painted a form with some textures to have 3d style and is working fine. Then i tried to place two walking boys animation. This is the logic i want to use: the two boys will walk towards each other and the one the at the rear will appear far away and the one at the base will appear near to viewers. How can I achieve this? Please... I know i need some math and physics calculation but i tried but couldn't do it.

Richard MacCutchan13-Nov-14 22:09

13-Nov-14 22:09

This is just about scaling the images to be small for far away, and large for near. Simple division and multiplication should do it.

Otekpo Emmanuel13-Nov-14 22:45

13-Nov-14 22:45

Yep, i tried something of this nature but couldn't meet the requirement.
Dim YGap As Long
Dim XGap as Long
Dim setHeight As Integer 'set boy2 at the rear height
Dim curY as Long' get the boy2 current y position
then on form load, i added this
YGap=Me.Height
XGap=Me.Width
on timer tick, i added this
boy2.Top = boy2.Top + 100
curY=boy2.Top
If curY <= YGap/20 Then
setHeight = 900
boy2.Height = setHeight
End If
If curY <= YGap/15 Then
setHeight = 1200
boy2.Height = setHeight
End If
If curY <= YGap/10 Then
setHeight = 1400
boy2.Height = setHeight
End If
If curY <= YGap/5 Then
setHeight = 1800
boy2.Height = setHeight
End If
then, i added this to ensure boy2 returns to his starting once he gets to the Me.ScaleHeight
If boy2.Top >= Me.ScaleHeight Then
boy2.Top = Me.ScaleTop + 500
End if
but, not working fine. Please give any idea.

Richard MacCutchan13-Nov-14 23:01

13-Nov-14 23:01

Otekpo Emmanuel wrote:
but, not working fine.

I have no idea what that is supposed to mean.

Part of your problem is that you are using absolute values in your calculations, rather than scale values based on percentage differences between the images, and maybe even the background. The issue is really a mathematical problem rather than a programming one.

Also please use <pre> tags round your code so it looks readable like:

If boy2.Top >= Me.ScaleHeight Then
    boy2.Top = Me.ScaleTop + 500
End if

Otekpo Emmanuel13-Nov-14 23:26

13-Nov-14 23:26

Ok thanks. Then, what is the best idea? And please, i just downloaded something of that nature but unable to get the flow of the codes because there are no comments to understand the flow.
The poster declared
<pre>Dim i,j As Integer
p(200,200)</pre>
and he went further to say
<pre>For i=1 To 200
For j=10 To 150
p(i,j) = 1
Next
Next

For i=20 To 100
For j=10 To 100
p(i,j) = 1
Next
Next</pre>
and so on...
What does this really mean? Please, any idea because am lost at the post and it was posted 2005 not sure if there will be any reply if i ask there.

Richard MacCutchan13-Nov-14 23:34

13-Nov-14 23:34

Otekpo Emmanuel wrote:
What does this really mean?

Sorry I have no idea. But there are many articles around that deal with displaying 2d and 3d images, such as can be found by Google searching[^].

Otekpo Emmanuel13-Nov-14 23:44

I Need Some Help In Visual Basic - msflexgrid

13-Nov-14 23:44

Ok, thanks. Really appreciate your effort.

akmckd13-Nov-14 19:04

akmckd

13-Nov-14 19:04

Dear

i Need Some Help in Visual Basic msflexgrid.

I Need To Create A msflexgrid Like Busy Accounting Software.

Can U Help Me .

Anuj Mittal
anujkumarmittal@gmail.com
9313501001

Re: I Need Some Help In Visual Basic - msflexgrid

Mycroft Holmes13-Nov-14 20:09

Mycroft Holmes

13-Nov-14 20:09

akmckd wrote:
Can U Help Me .

I would say it is very unlikely, most of us moved on from VB more than YEARS ago and will no longer have expertise in a dead language.

You should not be putting your effort into a VB6 development but looking at rewriting the application using Visual Studio Express[^] which is FREE and includes VB.Net.

Never underestimate the power of human stupidity
RAH

Re: I Need Some Help In Visual Basic - msflexgrid

Bernhard Hiller13-Nov-14 20:56

Bernhard Hiller

13-Nov-14 20:56

Publishing your email address (and phone number also) is considered an invitation for sending spam to you.
By the way, there are fora which block people who publish email addresses!

Re: I Need Some Help In Visual Basic - msflexgrid

Richard MacCutchan13-Nov-14 22:07

Sync textbox movement with grid display view movement

13-Nov-14 22:07

akmckd wrote:
i Need Some Help

Then you need to explain exactly what help.

josephls13-Nov-14 7:52

josephls

13-Nov-14 7:52

Please be gentle, my first post. I am new at vb.net and am need help syncing my textbox and data grid so that when I move to the next record in the textbox the grid view also moves to the new row. Listed is my code, help would be greatly appreciated.

Private Sub OpenDataGrid()
        Dim sql As String
        '********************* Populate DataGrid *********************
        Try
            sql = "SELECT * FROM TempCreditors;"
            MyConn = New OleDbConnection
            MyConn.ConnectionString = connString
            ds = New DataSet
            tables = ds.Tables
            da = New OleDbDataAdapter(sql, MyConn)
            cm = New OleDbCommand(sql)
            da.TableMappings.Add("MyTables", "MyTables")
            da.FillSchema(ds, SchemaType.Source, "TempCreditors")

            da.Fill(ds, "TempCreditors")
            Dim view As New DataView(tables("TempCreditors"))
            grdDisplay.DataSource = ds
            grdDisplay.DataMember = ds.Tables("TempCreditors").TableName
        Catch ex As Exception
            MessageBox.Show("Unable to connect to database, or an error occurred.")
        End Try

        '********************* End Populate DataGrid ******************

        Binding_Source.DataSource = ds    'grdDisplay.DataSource
        Binding_Source.DataMember = ds.Tables("TempCreditors").TableName  'grdDisplay.DataMember

        'Bind Form's Textboxes
        txtCreditor.DataBindings.Add("text", Binding_Source, "Creditor", False)
        txtAmount.DataBindings.Add("Text", Binding_Source, "Amount", False)
        txtAmtPaid.DataBindings.Add("Text", Binding_Source, "Amt Paid", False)
        txtRemBal.DataBindings.Add("Text", Binding_Source, "Rem Bal", False)


        'Right Align GridView text
        grdDisplay.Columns("Amount").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        grdDisplay.Columns("Amt Paid").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        grdDisplay.Columns("Rem Bal").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        With grdDisplay
            'Set Column Properties
            .Width = 610
            .Columns("Creditor").Width = 250
            .Columns("Amount").DefaultCellStyle.Format = "c"
            .Columns("Amt Paid").DefaultCellStyle.Format = "c"
            .Columns("Rem Bal").DefaultCellStyle.Format = "c"

            'Hide Columns
            .Columns("ID").Visible = False
            .Columns("Due Date").Visible = False
            .Columns("Paid").Visible = False
            .Columns("Mid Month").Visible = False
            .Columns("End Month").Visible = False
            .Columns("Due Month").Visible = False
            '           .Columns("Rem Bal").Visible = False
            .Columns("Pay Date").Visible = False
            .Columns("Deduction").Visible = False
        End With

        'Bind Grid to Nav buttons
        MyCM = CType(BindingContext(Binding_Source), CurrencyManager)
        MyCM.Position = 0
        '        grdDisplay.Rows(0).Selected = True
    End Sub

JLS

Re: Sync textbox movement with grid display view movement

Eddy Vluggen14-Nov-14 8:27

Eddy Vluggen

14-Nov-14 8:27

josephls wrote:
'Bind Form's Textboxes

Add another entry at that point.

Bastard Programmer from Hell Suspicious | :suss:

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

vb.net

kusuma.d13-Nov-14 0:53

kusuma.d

13-Nov-14 0:53

Hi.. Am Trying disable taskmanager through button click in vb.net but it gives me error .

registry access is not allowed.

But i have logged in as ADMIN only.. Frown | :(

Below is the code am using....

Dim systemRegistry As RegistryKey = Registry.CurrentUser.CreateSubKey(&quot;Software\Microsoft\Windows\CurrentVersion\Policies\System&quot;)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

systemRegistry.SetValue(&quot;DisableTaskMgr&quot;, 1)

systemRegistry.Close()
End Sub

Re: vb.net

Dave Kreskowiak13-Nov-14 2:14

Dave Kreskowiak

13-Nov-14 2:14

If you're getting "Access Denied", you're not running the code as an Administrator.

Since you're putting the value under CurrentUser, this will only disable Task Manager for the user running the code and not disable it for everyone who uses the machine.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Re: vb.net

Richard MacCutchan13-Nov-14 2:54

I am just starting and need direction

13-Nov-14 2:54

I don't think that key exists in HKCU. Use regedit to check.

Re: vb.net

Sheepings13-Nov-14 4:34

Sheepings

13-Nov-14 4:34

Under your Solution in your project name, (Click show all files button above your solution) there is a folder called my project, expand it and open the app.config. Change this line:

HTML

<requestedExecutionLevel level="asInvoker" uiAccess="false" />

to one of these:

HTML

<requestedExecutionLevel  level="requireAdministrator" uiAccess="true" />

HTML

<requestedExecutionLevel  level="highestAvailable" uiAccess="true" />

You can elevate your application to admin level by using the below code:
.NET

Dim RunAdminMode As ProcessStartInfo = New ProcessStartInfo()
        RunAdminMode.UseShellExecute = True
        RunAdminMode.WorkingDirectory = Environment.CurrentDirectory
        RunAdminMode.FileName = Application.ExecutablePath
        RunAdminMode.Verb = "runas"
        Try
            Dim p As Process = Process.Start(RunAdminMode)
        Catch RunAsAdmin As Exception
            Return 'If cancelled, do ....
        End Try

ProcessStartInfo RunAdminMode = new ProcessStartInfo();
RunAdminMode.UseShellExecute = true;
RunAdminMode.WorkingDirectory = Environment.CurrentDirectory;
RunAdminMode.FileName = Application.ExecutablePath;
RunAdminMode.Verb = "runas";
try {
	Process p = Process.Start(RunAdminMode);
} catch (Exception RunAsAdmin) {
	return;
	//If cancelled, do ....
}

Regards,
CodingK

Member 1122645911-Nov-14 19:33

Member 11226459

11-Nov-14 19:33

I would like to learn visual basic - so I bought a book but I don't even know what software to buy to program with. I want to learn how to program for CAD applications but I would like to play and have fun with VB as well. I don't want to spend a bunch of money if I don't have to however if I have to then I will be happy to do so. My problem is that I am brand new and don't know the best way to get started.
I just bought the book: Beginning Visual Basic 2012 by Bryan Newsome.
Any advice would be greatly appreciated.

Thanks!!

Kaz

Microsoft provide free "Express" versions of their software[^]

Chris Quinn11-Nov-14 21:06

Chris Quinn

11-Nov-14 21:06

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Member 1122645912-Nov-14 22:28

Member 11226459

12-Nov-14 22:28

Thank you!

Richard MacCutchan11-Nov-14 21:07

11-Nov-14 21:07

Get a copy of Visual Studio Express from Microsoft[^]. It's free and provides everything you need to get started. There are also hundreds of articles here on CodeProject, and in the wider community that will help you.