You are not logged in.
This forum has been archived and no longer accepts new user registrations. Please report your questions, problems, and feedback to the issue page of ReoGrid on GitHub. Thank you for your cooperation.
Pages: 1
Topic closed
Hi,
The .dll mentionned in my earlier post remains.
Please look into.
Peter
Offline
Hi Peter, I can't understand your question, in which post? It'll be helpful if you provide URL.
Offline
When running and debugging I get this error the programs runs to the end.
following error : " EEFileLoadException * __ptr64 at memory location 0x00000086d2d8a210. in debug.exe
This is a C++ or C# misinterpretation during compiling (I suspect) of the unvell.ReoGrid.dll.
Could you please look into this.
Peter
Offline
It seems a C++ exception but there is no C++ code in ReoGrid, how do you use it?
Offline
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
''
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
''
Dim f2 As New FileIOPermission(FileIOPermissionAccess.Read, "C:\TransformerQuotation")
f2.AddPathList(FileIOPermissionAccess.Write And FileIOPermissionAccess.Read, "C:\TransformerQuotation")
Try
f2.Demand()
Catch s As SecurityException
Console.WriteLine(s.Message)
End Try
''
Me.Controls.Add(ReoGridControl1)
Dim editableRange As New ReoGridRange(0, 0, 6, 135)
''
Dim colcount As Integer = 0
Dim rowcount As Integer = 0
''
Dim range As New unvell.ReoGrid.ReoGridRange(0, 0, 124, 6)
Dim fixedRange = ReoGridControl1.FixRange(range) ''
Dim dropdown1 As New DropdownCell(New Object() {"Continental climate", "Mountain climate", _
"Desert climate", "Tropical climate", "Sea climate"})
Dim dropdown2 As New DropdownCell(New Object() {"IEC", "ANSI"})
Dim dropdown3 As New DropdownCell(New Object() {"No", "Yes"})
Dim dropdown4 As New DropdownCell(New Object() {"Effective", "Non-Effective", "Resonant", "Other"})
Dim dropdownCurrency As New DropdownCell(New Object() {"US dollar", "Japanese yen", "Bulgarian lev", "Czech koruna", "Danish krone", "Pound sterling", "Hungarian forint", "Lithuanian litas", "Polish zloty", "New Romanian leu", "Swedish krona", "Swiss franc", "Norwegian krone", "Croatian kuna", "Russian rouble", "Turkish lira", "Australian dollar", "Brasilian real", "Canadian dollar", "Chinese yuan renminbi", "Hong Kong dollar", "Indonesian rupiah", "Israeli shekel", "Indian rupee", "South Korean won", "Mexican peso", "Malaysian ringgit", "New Zealand dollar", "Philippine peso", "Singapore dollar", "Thai baht", "South African rand"})
''
Dim di As New DirectoryInfo(Application.StartupPath)
For Each fi In di.GetFiles()
If fi.Name = "InputQuote.rgf" Then
Using s As New System.IO.FileStream(Application.StartupPath & "\" & "InputQuote.rgf", System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite)
ReoGridControl1.Load(s)
End Using
End If
Next fi
''
For i = 0 To rowcount
ReoGridControl1.EnableAutoRowHeight(i)
Next i
ReoGridControl1.GetCell("A8").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A18").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A25").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A29").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A44").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A71").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A76").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A92").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A96").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A101").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A107").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A113").Style.BackColor = Color.Yellow
ReoGridControl1.GetCell("A8").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A18").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A25").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A29").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A44").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A71").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A76").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A92").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A96").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A101").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A107").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1.GetCell("A113").Style.HAlign = unvell.ReoGrid.ReoGridHorAlign.Center
ReoGridControl1("B4") = dropdownCurrency
ReoGridControl1("B5") = RateEU
ReoGridControl1("B6") = DateEu
Debug.Print("DateEu = " & DateEu)
ReoGridControl1("F1") = Date.Now
ReoGridControl1("F123") = New ButtonCell("Continue")
ReoGridControl1("D2") = dropdown1
ReoGridControl1("D4") = dropdown2
ReoGridControl1("D3") = dropdown3
ReoGridControl1("D108") = dropdown3
ReoGridControl1("F36") = dropdown3
ReoGridControl1("F40") = dropdown3
ReoGridControl1("F37") = dropdown3
ReoGridControl1("F55") = dropdown3
ReoGridControl1("B72") = dropdown3
ReoGridControl1("B115") = dropdown3
ReoGridControl1("C115") = dropdown3
ReoGridControl1("D115") = dropdown3
Call ReadUrl()
''
colcount = 6
rowcount = 124
End Sub
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.ReoGridControl1 = New unvell.ReoGrid.ReoGridControl()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SuspendLayout()
'
'ReoGridControl1
'
Me.ReoGridControl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.ReoGridControl1.CellEditText = ""
Me.ReoGridControl1.ColumnCount = 6
Me.ReoGridControl1.ColumnCount = 6
Me.ReoGridControl1.ColumnHeaderContextMenuStrip = Nothing
Me.ReoGridControl1.FocusHighlightRange = Nothing
Me.ReoGridControl1.LeadHeaderContextMenuStrip = Nothing
Me.ReoGridControl1.Location = New System.Drawing.Point(0, 24)
Me.ReoGridControl1.Name = "ReoGridControl1"
Me.ReoGridControl1.PageSettings = CType(resources.GetObject("ReoGridControl1.PageSettings"), System.Drawing.Printing.PageSettings)
Me.ReoGridControl1.PrintSettings = CType(resources.GetObject("ReoGridControl1.PrintSettings"), unvell.ReoGrid.ReoGridPrintSettings)
Me.ReoGridControl1.RowCount = 135
Me.ReoGridControl1.RowHeaderContextMenuStrip = Nothing
Me.ReoGridControl1.Script = Nothing
Me.ReoGridControl1.Size = New System.Drawing.Size(1313, 536)
Me.ReoGridControl1.TabIndex = 0
Me.ReoGridControl1.Text = "ReoGridControl1"
'
'MenuStrip1
'
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1313, 24)
Me.MenuStrip1.TabIndex = 1
Me.MenuStrip1.Text = "MenuStrip1"
'
'Form1
'
Me.ClientSize = New System.Drawing.Size(1313, 557)
Me.Controls.Add(Me.ReoGridControl1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Offline
Pages: 1
Topic closed