Jump to content

Not able to create rich edit control


Zieq
 Share

Recommended Posts

i am trying to create two rich edit control to have link text on it.

when i run my script i just see only one rich edit control created on to dialog. i dont see second edit control getting created.

Can anyone help me why its not getting created?

;Include files
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <GuiRichEdit.au3>

;global dialog member variables


;Local dialog member variables
Global $gCRNumber_Data, $gDesignLink_Data, $gCodeLink_Data

$gMainDialog = GUICreate("Get Design and Code Links", 392, 250, 100, 100)

GUICtrlCreateLabel("CR: ", 40, 43, 50, 20)
$gCRNumber = GUICtrlCreateEdit("", 85, 40, 120, 20, BitOR($ES_NUMBER, $ES_WANTRETURN))

GUICtrlCreateLabel("Design Link: ", 15, 70, 60, 20)
$gDesignLink = _GUICtrlRichEdit_Create($gMainDialog,"", 85, 70, 300, 40,BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))

GUICtrlCreateLabel("Code Link: ", 15, 140, 60, 20)
$gCodeLink = _GUICtrlRichEdit_Create($gMainDialog,"", 85, 140, 300, 40,BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))

$gCancelButton = GUICtrlCreateButton("Cancel", 10, 210, 80, 30)
$gAddButton = GUICtrlCreateButton("Add", 105, 210, 80, 30)
$gGetDesignButton = GUICtrlCreateButton("Get Design", 203, 210, 80, 30)
$gGetCodeButton = GUICtrlCreateButton("Get Code", 300, 210, 80, 30)

;Main Logic in while loop
GUISetState(@SW_SHOW)
; Run the GUI until the dialog is closed
While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

            Case $gAddButton
                            $gCRNumber_Data = GUICtrlRead($gCRNumber, 1)
                            $gDesignLink_Data = GUICtrlRead($gDesignLink, 1)
                            $gCodeLink_Data = GUICtrlRead($gCodeLink, 1)

                            Local $sFilePath1 = @ScriptDir & "\CR_DATA.xlsx" ;This file should already exist
                            If Not FileExists($sFilePath1) Then
                                MsgBox(16, '', 'Does NOT exists')
                                Exit
                            EndIf
                            Local $oExcel = _ExcelBookOpen($sFilePath1)
                            _ExcelRowInsert($oExcel, 1, 1)
                            _ExcelWriteCell($oExcel, $gCRNumber_Data, 1, 1)
                            _ExcelWriteCell($oExcel, $gDesignLink_Data, 1, 2)
                            _ExcelWriteCell($oExcel, $gCodeLink_Data, 1, 3)
                            _ExcelBookSaveAs($oExcel, @ScriptDir & "\CR_DATA.xlsx", "xlsx", 0, 1)
                            _ExcelBookClose($oExcel) ; And finally we close out
                                                        
            Case $gGetDesignButton

            Case $gGetCodeButton
        EndSwitch
WEnd
GUIDelete()
Edited by Zieq
Link to comment
Share on other sites

  • Moderators

Zieq,

What AutoIt version are you running? There was a problem a while back with multiple RichEdit controls, but in the last release (3.3.10.2) I see both being created. :)

This snippet will tell you which version you have: ;)

MsgBox(0, "Version", @AutoItVersion)
M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...