From bf3bb31f05dc95a4b4ba77e1468083e6b04c6359 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= Date: Fri, 5 May 2017 11:02:34 +0800 Subject: [PATCH] Renamed subShowBasicData to subShowText. --- PokemonGoIV/9Load.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/PokemonGoIV/9Load.vb b/PokemonGoIV/9Load.vb index 75d3a4a..81d00ba 100644 --- a/PokemonGoIV/9Load.vb +++ b/PokemonGoIV/9Load.vb @@ -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