Renamed subShowBasicData to subShowText.

This commit is contained in:
依瑪貓 2017-05-05 11:02:34 +08:00
parent a463624c4d
commit bf3bb31f05

View File

@ -45,11 +45,11 @@ Sub subReadDataSheets
sOutput = sOutput & Chr (10) & Chr (10) & fnReadBaseStatsSheet
sOutput = sOutput & Chr (10) & Chr (10) & fnReadCPMSheet
sOutput = sOutput & Chr (10) & Chr (10) & fnReadStardustSheet
subShowBasicData (sOutput)
subShowText (sOutput)
End Sub
' subShowBasicData: Shows the data table as Basic arrays
Sub subShowBasicData (sContent As String)
' subShowText: Shows the text in a text box for copy and paste.
Sub subShowText (sContent As String)
Dim oDialog As Object, oDialogModel As Object
Dim oEditModel As Object, oButtonModel As Object