CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 2 of 2
  1. #1
    Join Date
    Apr 2010
    Posts
    0

    don't know whatto do

    Type=Exe
    Form=lc3.frm
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#Standard OLE Types
    Reference=*\G{00025E04-0000-0000-C000-000000000046}#3.5#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DC:\PROGRAM FIL#Microsoft DAO 2.5 Object Library
    IconForm="frmRMsales"
    Startup="frmRMsales"
    Command32=""
    Name="RMSales"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="zak"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    frmRMsales = 95, 103, 545, 391, C, 0, 0, 0, 0,
    Begin VB.Form frmRMsales
    Caption = "RM Sales"
    ClientHeight = 4260
    ClientLeft = 1125
    ClientTop = 1515
    ClientWidth = 6030
    LinkTopic = "Form1"
    LockControls = -1 'True
    MaxButton = 0 'False
    PaletteMode = 1 'UseZOrder
    ScaleHeight = 4260
    ScaleWidth = 6030
    Begin VB.TextBox txtWest
    BackColor = &H0080FFFF&
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 495
    Left = 1320
    TabIndex = 7
    Top = 2400
    Width = 1215
    End
    Begin VB.CommandButton cmdExit
    Caption = "E&xit"
    Height = 495
    Left = 3878
    TabIndex = 10
    Top = 3360
    Width = 1395
    End
    Begin VB.CommandButton cmdPrint
    Caption = "&Print"
    Height = 495
    Left = 2378
    TabIndex = 9
    Top = 3360
    Width = 1395
    End
    Begin VB.CommandButton cmdCalc
    Caption = "P&rojected Sales"
    Height = 495
    Left = 758
    TabIndex = 8
    Top = 3360
    Width = 1575
    End
    Begin VB.TextBox txtEast
    BackColor = &H0080FFFF&
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 495
    Left = 1320
    TabIndex = 5
    Top = 1800
    Width = 1215
    End
    Begin VB.TextBox txtSouth
    BackColor = &H0080FFFF&
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 495
    Left = 1320
    TabIndex = 3
    Top = 1200
    Width = 1215
    End
    Begin VB.TextBox txtNorth
    BackColor = &H0080FFFF&
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 495
    Left = 1320
    TabIndex = 1
    Top = 600
    Width = 1215
    End
    Begin VB.Label lblErate
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 2880
    TabIndex = 21
    Top = 1800
    Width = 1215
    End
    Begin VB.Label lblWrate
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 2880
    TabIndex = 20
    Top = 2400
    Width = 1215
    End
    Begin VB.Label Label9
    AutoSize = -1 'True
    BackStyle = 0 'Transparent
    Caption = "Percentages"
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 240
    Left = 2880
    TabIndex = 19
    Top = 360
    Width = 1155
    End
    Begin VB.Label lblNrate
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 2880
    TabIndex = 18
    Top = 600
    Width = 1215
    End
    Begin VB.Label lblSrate
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 2880
    TabIndex = 17
    Top = 1200
    Width = 1215
    End
    Begin VB.Label lblEast
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 4440
    TabIndex = 16
    Top = 1800
    Width = 1215
    End
    Begin VB.Label lblWest
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 4440
    TabIndex = 15
    Top = 2400
    Width = 1215
    End
    Begin VB.Label Label6
    BackStyle = 0 'Transparent
    Caption = "&West sales:"
    Height = 195
    Left = 360
    TabIndex = 6
    Top = 2400
    Width = 825
    End
    Begin VB.Label lblSouth
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 4440
    TabIndex = 14
    Top = 1200
    Width = 1215
    End
    Begin VB.Label lblNorth
    Appearance = 0 'Flat
    BackColor = &H80000005&
    BackStyle = 0 'Transparent
    BorderStyle = 1 'Fixed Single
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H80000008&
    Height = 495
    Left = 4440
    TabIndex = 13
    Top = 600
    Width = 1215
    End
    Begin VB.Label Label5
    AutoSize = -1 'True
    BackStyle = 0 'Transparent
    Caption = "Projected"
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 240
    Left = 4440
    TabIndex = 12
    Top = 360
    Width = 870
    End
    Begin VB.Label Label4
    AutoSize = -1 'True
    BackStyle = 0 'Transparent
    Caption = "Current"
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 9.75
    Charset = 0
    Weight = 400
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    Height = 240
    Left = 1320
    TabIndex = 11
    Top = 360
    Width = 630
    End
    Begin VB.Label Label3
    BackStyle = 0 'Transparent
    Caption = "&East sales:"
    Height = 195
    Left = 360
    TabIndex = 4
    Top = 1800
    Width = 765
    End
    Begin VB.Label Label2
    BackStyle = 0 'Transparent
    Caption = "&South sales:"
    Height = 195
    Left = 360
    TabIndex = 2
    Top = 1200
    Width = 870
    End
    Begin VB.Label Label1
    BackStyle = 0 'Transparent
    Caption = "&North sales:"
    Height = 195
    Left = 360
    TabIndex = 0
    Top = 600
    Width = 840
    End
    End
    Attribute VB_Name = "frmRMsales"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False

    Private Sub cmdCalc_Click()

    End Sub


    Private Sub cmdExit_Click()
    End

    End Sub


    Private Sub cmdPrint_Click()
    PrintForm

    End Sub


    Private Sub Form_Load()

    End Sub
    I need help two forms in this application. the 1st is to prompt my name is a standard dialog box. the other to get a main form for square/square root button,print button and exit button. the paln a toe chart,order by object,and draw a sketch of the user interface.

  2. #2
    Join Date
    Jul 2008
    Location
    WV
    Posts
    5,362

    Re: don't know whatto do

    It looks like you have posted the designer code. Not much help and very hard to follow. A screen shot of the form would have been more useful.

    From what I see you have not written any code except end and printform.

    to help get you started.

    Code:
    Dim MyName as String
    Dim SquareRootOf64 as Integer
    
    MyName=InputBox("Enter Your Name")
    
    MsgBox MyName
    
    SquareRootOf64=SQR(64)
    Msgbox SquareRootOf64
    Always use [code][/code] tags when posting code.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured