muramoto1041

'Ver 1.00 2021/07/24 デスクトップに置いて、サクサク使えるメニューを作成する。
'
'[処理]
' ファイル名/Exeファイル/URL/ショートカットを開く
'
'[使い方]
' このファイル(ランチャー.vbs)をデスクトップに置く
'
'[注意]
' エンコードは、ANSI(Shift JIS)で保存すること。

muramoto1041

Sub メニュー()
  On Error GoTo subError
  Dim wMenu  As String
  
  wMenu = "項目の追加,項目位置を保存,フォーム画面表示"
  
  n = f_メニュー("タイトル", wMenu, "選択してください", 0)
  If n = 0 Then Exit Sub
  '--- Exit ---
  

muramoto1041

Protected Sub S_GetID(qTBL As String)
        'Azure
        Dim strSQL As String
        Dim cnnStr As String = ConfigurationManager.AppSettings("apps_BariSpDT_Kava")
        Dim cnn As SqlConnection = New SqlConnection(cnnStr)
        Dim sqlcmdSelect As SqlCommand = New SqlCommand()
        Dim adpt As SqlDataAdapter = New SqlDataAdapter()
        Dim dsDataSet As DataSet = New DataSet

        sIDNew = 0

muramoto1041

'****************************************************************
'作成日：2020/06/01
'                             Fy_メニュー
'作成者：村本俊和
'****************************************************************
Option Explicit
'System
Dim sMsg   As Integer
Dim sWhere As String
'Procedure

muramoto1041

'
' 日本語ローコードYUGE Ver1.19
' (注意)変更しないでください。
' https://excel-databace.hatenablog.com/entry/yuge-help
'
'Ver 1.17  2020/11/16  タイマー機能追加
'    1.18  2020/11/25  ユーザーマクロに説明追加/年月範囲追加/印刷ダイアログ
'    1.19  2020/12/25  テーブル作成/解除
'
Option Explicit

muramoto1041

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _


ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _

ByVal nDEvent As Long) As Long

muramoto1041

#If VBA7 And Win64 Then

  '64bit版 Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long

#Else

  '32bit版 Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

#End If 

muramoto1041

/* </system> */
@media screen and (min-width: 1024px) {
.main-navigation {
text-align: center;
}
}

<!-- メニューバー -->
#manubar{
width:80%; }

muramoto1041

<nav class="main-navigation">
<div class="menu-toggle">メニュー</div>
<div class="main-navigation-inner">
<ul>
<li><a href="#">Home</a></li>
<li><a href="#">Menu01</a></li>
<li>
<a href="#" class="has-child">Menu02</a>
<ul>
<li><a href="#">Sub Menu 02-1</a></li>

muramoto1041

Dim cd As String
cd = ""
cd = cd & "function timeConv(s){"
cd = cd & "  var dt = new Date(s);"
cd = cd & "  var dtf = dt.getFullYear();"
cd = cd & "  dtf += '/' + (dt.getMonth()+1);"
cd = cd & "  dtf += '/' + dt.getDate();"
cd = cd & "  dtf += ' ' + dt.getHours();"
cd = cd & "  dtf += ':' + dt.getMinutes();"
cd = cd & "  dtf += ':' + dt.getSeconds();"