シェル実行

Public Function testUwscA()
    Dim ShellObject As Object
    Set ShellObject = CreateObject("WScript.Shell")
    Dim a$
    a$ = CurrentProject.path & "\uwsc\test.bat"
    
    ShellObject.Run a, 1, 1
    Debug.Print "end"
End Function

Public Function testUwscB()
    Dim a$
    a = CurrentProject.path & "\uwsc\uwsc.exe " & CurrentProject.path & "\uwsc\test.uwsc"
    
    Dim appid
    appid = Shell(a, vbNormalFocus)

    
    For i = 1 To 10000
        DoEvents
        If Not isRunning(appid) Then
            Exit Sub
        End If
    Next
    
End Function

flutter on web : ios17になってから、チェックボックの挙動がおかしい、

Widget nikoCheck2(WidgetRef ref,
    {required value, required String label, fnc, double? width}) {
  return TextButton(
    onPressed: () {
        fnc();
        Future.delayed(const Duration(milliseconds: 100), () {
        // ref.read(scEditState2.notifier).state++;
      }); //state更新
    },
    child: Row(mainAxisAlignment: MainAxisAlignment.start, children: [
      SizedBox(
          height: 26.0,
          width: 26.0,
          child: Checkbox(
              key: UniqueKey(), // キーを設定
              value: value,
              onChanged: (value) async {
                fnc();
                Future.delayed(const Duration(milliseconds: 100), () {
                // ref.read(scEditState2.notifier).state++;
              }); //state更新
            }
          )
      ),
      const SizedBox(width: 10.0),
      SizedBox(
          width: (width ?? 20.0),
          child: Text(label, style: const TextStyle(fontSize: 18))),
    ]),
  );
}
/* -----codeの行番号----- */