Hej håller fortfarande på med att tillverka program med VB6. Tycker fortfarande att det funkar. Dock har jag sprungit på ett problem med en Grid.Grid
Har lyckats installera VB6 på min nya dator men när jag ska lägga till komponenten Microsoft Grid Control får jag problem. Jag kan lägga till den i verktygslådan men när jag ska lägga ut den i en form får jag felmeddelandet, " License information for this component not found. You do not have an appropriate license to use this functionality in the disign environment"
Vad ska jag göra. Har försökt att registrera Grind32.ocx och Grid32.oca vilket har fungerat men det hjälper inte. Nån som har nån idé.
Jag provade istället att lägga till en FlexGrid vilket går utmärkt. Dock är den så otroligt seg när man kör programmet. Det tar kanske 30 sekunder för att fylla en Flexgrid. Den lägger till data cell för cell, rad efter rad och under tiden låser sig hela programmet. Jag använder samma kod som för en vanlig Grid för att läsa in data. Är det fel. Nån som ser problemet men nedanstående kod som gör att allt blir så segt.
FlexGrid:en har följande kod.
Dim iFile As Integer
Dim iRow As Integer
Dim iCol As Integer
Dim sData As String
iFile = FreeFile
If Dir$("C:\Mapp\Filnamn.txt") <> "" Then
Open "C:\Mapp\Filnamn.txt" For Input As #iFile
Line Input #iFile, sData
Grid1.Rows = CInt(sData)
Line Input #iFile, sData
Grid1.Cols = CInt(sData)
For iRow = 0 To Grid1.Rows - 1
Grid1.Row = iRow
For iCol = 0 To Grid1.Cols - 1
Grid1.Col = iCol
Line Input #iFile, sData
Grid1.Text = sData
Next iCol
Next iRow
Close #iFile
End If