得点をチェックして、赤点なら赤文字にする処理。

この、赤文字にする処理は CheckListBox1 メソッドに書かれている。

For row As Integer = 1 To ListBox1.RowCount - 1
  if ( 30 >= Listbox1.Cell(row, 0).ToInteger ) then
    ListBox1.CellStyle(row,0) = WebStyleTextRed
  end if
Next

この処理だけど、赤点の基準が都度都度変わときにどうするのがいいかな?

上のコードでは 30 >= Listbox1.Cell(row, 0).ToInteger ということで30点以下なら赤文字にする。ハードコーディングしているけど、利用者が簡単に変更できるように考えたい。

DB に判定値を入力し、それを参照するようにする。
外部ファイルに判定値を書き込み、それを参照するようにする。
外部ライブラリにする

まともに考えるなら1. または 2.。しかしながら得点のしきい値だけではなく、赤点判定のロジックも変わるとするとどうなるか?

DBに判定クエリを登録し、それを呼び出す
判定を外部ライブラリで行う
外部ライブラリにする

ここでは、このような場合に外部ライブラリにして、利用者が簡単に変更できるようになるかどうか考えてみます。

環境

Xojo 2019 Ver3.2 (Web1.0 ベースの旧Xojo)
Webアプリ(スタンドアローンないしデバッグ実行)
Windows10 Pro 上でIDEを使用

メソッドを外部ライブラリ化する

「Insert」のアイコンを押し「Module」を選ぶ

「CheckListBox1」メソッドをを「Module1」に移動し、「CheckListBox1」内部の ListBox1 への参照を書き換える

「Module1」の名前をわかりやすいように「外部モジュール1」に変更しました。

メソッドの呼び出し元を書き換えます。

「外部モジュール1」を外部モジュールに変換します。

XML形式で保存すれば、ユーザサイドで変更できるかどうかな?

「外部モジュール1」の表示が斜体になり、外部モジュールになっていることがわかります。

外部モジュール中のメソッドのScopeをGlobalに変更します。

ここで、「外部モジュール1.xojo_xml_code」として保管されたファイルの中身は以下のようになっています。

<?xml version="1.0" encoding="UTF-8"?>
<RBProject version="2019r3.2" FormatVersion="2" MinIDEVersion="20110400">
<block type="Module" ID="598937599">
 <ObjName>外部モジュール1</ObjName>
 <ObjContainerID>0</ObjContainerID>
 <IsClass>0</IsClass>
 <ItemFlags>1</ItemFlags>
 <IsInterface>0</IsInterface>
 <Compatibility></Compatibility>
 <Method>
  <ItemName>CheckListBox1</ItemName>
  <Compatibility></Compatibility>
  <Visible>1</Visible>
  <PartID>104853503</PartID>
  <ItemSource>
   <TextEncoding>134217984</TextEncoding>
   <SourceLine>Sub CheckListBox1()</SourceLine>
   <SourceLine>For row As Integer = 1 To WebPage1.ListBox1.RowCount - 1</SourceLine>
   <SourceLine>if ( 30 &gt;= WebPage1.Listbox1.Cell(row, 0).ToInteger ) then</SourceLine>
   <SourceLine>Webpage1.ListBox1.CellStyle(row,0) = WebStyleTextRed</SourceLine>
   <SourceLine>end if</SourceLine>
   <SourceLine>Next</SourceLine>
   <SourceLine>End Sub</SourceLine>
  </ItemSource>
  <TextEncoding>134217984</TextEncoding>
  <AliasName></AliasName>
  <ItemFlags>33</ItemFlags>
  <IsShared>0</IsShared>
  <ItemParams></ItemParams>
  <ItemResult></ItemResult>
 </Method>
 <ViewBehavior>
  <ViewProperty>
   <ObjName>Name</ObjName>
   <Visible>1</Visible>
   <PropertyGroup>ID</PropertyGroup>
   <ItemType>String</ItemType>
  </ViewProperty>
  <ViewProperty>
   <ObjName>Index</ObjName>
   <Visible>1</Visible>
   <PropertyGroup>ID</PropertyGroup>
   <PropertyValue>-2147483648</PropertyValue>
   <ItemType>Integer</ItemType>
  </ViewProperty>
  <ViewProperty>
   <ObjName>Super</ObjName>
   <Visible>1</Visible>
   <PropertyGroup>ID</PropertyGroup>
   <ItemType>String</ItemType>
  </ViewProperty>
  <ViewProperty>
   <ObjName>Left</ObjName>
   <Visible>1</Visible>
   <PropertyGroup>Position</PropertyGroup>
   <PropertyValue>0</PropertyValue>
   <ItemType>Integer</ItemType>
  </ViewProperty>
  <ViewProperty>
   <ObjName>Top</ObjName>
   <Visible>1</Visible>
   <PropertyGroup>Position</PropertyGroup>
   <PropertyValue>0</PropertyValue>
   <ItemType>Integer</ItemType>
  </ViewProperty>
 </ViewBehavior>
</block>
</RBProject>

これを編集してみるとどうなるでしょうか? Xojo を終了したあと、メモ帳で書き換えてみました。