{"id":376,"date":"2016-11-30T09:59:20","date_gmt":"2016-11-30T00:59:20","guid":{"rendered":"https:\/\/onaraboo.com\/?p=376"},"modified":"2016-11-30T10:09:21","modified_gmt":"2016-11-30T01:09:21","slug":"visual-basic-net-%e3%81%84%e3%82%8d%e3%81%84%e3%82%8d%e3%81%aa%e3%83%86%e3%82%af%e3%83%8b%e3%83%83%e3%82%af%e2%91%a5","status":"publish","type":"post","link":"https:\/\/onaraboo.com\/?p=376","title":{"rendered":"Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2465"},"content":{"rendered":"<div class='wp_social_bookmarking_light'>\n            <div class=\"wsbl_facebook_like\"><div id=\"fb-root\"><\/div><fb:like href=\"https:\/\/onaraboo.com\/?p=376\" layout=\"button_count\" action=\"like\" width=\"100\" share=\"false\" show_faces=\"false\" ><\/fb:like><\/div>\n            <div class=\"wsbl_hatena_button\"><a href=\"\/\/b.hatena.ne.jp\/entry\/https:\/\/onaraboo.com\/?p=376\" class=\"hatena-bookmark-button\" data-hatena-bookmark-title=\"Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2465\" data-hatena-bookmark-layout=\"standard\" title=\"\u3053\u306e\u30a8\u30f3\u30c8\u30ea\u30fc\u3092\u306f\u3066\u306a\u30d6\u30c3\u30af\u30de\u30fc\u30af\u306b\u8ffd\u52a0\"> <img loading=\"lazy\" decoding=\"async\" src=\"\/\/b.hatena.ne.jp\/images\/entry-button\/button-only@2x.png\" alt=\"\u3053\u306e\u30a8\u30f3\u30c8\u30ea\u30fc\u3092\u306f\u3066\u306a\u30d6\u30c3\u30af\u30de\u30fc\u30af\u306b\u8ffd\u52a0\" width=\"20\" height=\"20\" style=\"border: none;\" \/><\/a><script type=\"text\/javascript\" src=\"\/\/b.hatena.ne.jp\/js\/bookmark_button.js\" charset=\"utf-8\" async=\"async\"><\/script><\/div>\n            <div class=\"wsbl_line\"><a href='http:\/\/line.me\/R\/msg\/text\/?Visual%20Basic.NET%20%E3%81%84%E3%82%8D%E3%81%84%E3%82%8D%E3%81%AA%E3%83%86%E3%82%AF%E3%83%8B%E3%83%83%E3%82%AF%E2%91%A5%0D%0Ahttps%3A%2F%2Fonaraboo.com%2F%3Fp%3D376' title='LINE\u3067\u9001\u308b' rel=nofollow class='wp_social_bookmarking_light_a' ><img src='https:\/\/onaraboo.com\/wordpress\/wp-content\/plugins\/wp-social-bookmarking-light\/public\/images\/line20x20.png' alt='LINE\u3067\u9001\u308b' title='LINE\u3067\u9001\u308b' width='20' height='20' class='wp_social_bookmarking_light_img' \/><\/a><\/div>\n            <div class=\"wsbl_twitter\"><a href=\"https:\/\/twitter.com\/share\" class=\"twitter-share-button\" data-url=\"https:\/\/onaraboo.com\/?p=376\" data-text=\"Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2465\" data-lang=\"ja\">Tweet<\/a><\/div>\n    <\/div>\n<br class='wp_social_bookmarking_light_clear' \/>\n<p>\u696d\u52d9\u30a2\u30d7\u30ea\u3067\u4f7f\u7528\u3067\u304d\u305d\u3046\u306a\u3082\u306e\u3092\u4e94\u6708\u96e8\u306b\u8a18\u9332\u3057\u3066\u304a\u304f\u3002<br \/>\n\u307e\u3068\u307e\u308b\u307e\u3067\u5f85\u3063\u3066\u3044\u308b\u3068\u5fd8\u308c\u3066\u3057\u307e\u3046\u305f\u3081\u306b\uff65\uff65\uff65\u3002\uff57\uff57<\/p>\n<p>\u306a\u304a\u3001\u3053\u306e\u30d6\u30ed\u30b0\u5185\u306b\u8a18\u8f09\u3057\u3066\u3044\u308b\u30bd\u30fc\u30b9\u306e\u8ee2\u8f09\u30fb\u8ee2\u7528\u306b\u3064\u3044\u3066\u306f\u4f55\u3082\u7e1b\u308a\u306f\u3042\u308a\u307e\u305b\u3093\u3002<br \/>\n\u3054\u4f7f\u7528\u306e\u72b6\u6cc1\u306e\u5982\u4f55\u306b\u554f\u308f\u305a\u3001\u4f5c\u8005\u305f\u308b\u5f53\u65b9\u306f\u7d50\u679c\u306b\u3064\u3044\u3066\u305d\u306e\u8cac\u4efb\u3092\u4e00\u5207\u8ca0\u3044\u307e\u305b\u3093\u3002\u3054\u4f7f\u7528\u306f\u81ea\u5df1\u8cac\u4efb\u306e\u7bc4\u56f2\u3067\u304a\u9858\u3044\u3044\u305f\u3057\u307e\u3059\u3002<\/p>\n<p>\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1\u25a0\u25a1<\/p>\n<h2>\u3010\u30d5\u30a9\u30fc\u30e0\u306e\u578b\uff08\u30d9\u30fc\u30b9\uff09\u3092\u4f7f\u3046\u3011<\/h2>\n<p>\u696d\u52d9\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u306f\u540c\u3058\u3088\u3046\u306a\u6a5f\u80fd\u3092\u6301\u3063\u305f\u540c\u3058\u3088\u3046\u306a\u69cb\u6210\u753b\u9762\u304c\u8907\u6570\u4f5c\u308b\u3053\u3068\u306b\u306a\u308b\u304b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u7279\u306b\u30de\u30b9\u30bf\u7b49\u306e\u7de8\u96c6\u753b\u9762\u306f\u6a5f\u80fd\u3084\u69cb\u6210\u306f\u307b\u3068\u3093\u3069\u540c\u3058\u3067\u64cd\u4f5c\u3059\u308b\u30de\u30b9\u30bf\u304c\u9055\u3046\u7a0b\u5ea6\u3067\u6a5f\u80fd\u3092\u4f7f\u3044\u307e\u308f\u3057\u3066\u52b9\u7387\u3088\u304f\u4f5c\u6210\u3059\u308b\u3053\u3068\u304c\u809d\u8981\u3067\u3059\u3002<\/p>\n<h4>\u30e1\u30ea\u30c3\u30c8\u3068\u3057\u3066\u306f<\/h4>\n<p>\uff11\u3001\u540c\u3058\u6a5f\u80fd\u3092\u4f55\u5ea6\u3082\u5b9f\u88c5\u3057\u306a\u304f\u3066\u6e08\u3080\u3002<br \/>\n\uff12\u3001\uff11\u3064\u306e\u5b9f\u88c5\u6a5f\u80fd\u3092\u4f7f\u3044\u307e\u308f\u3059\u3053\u3068\u306b\u3088\u308a\u3001\u4fdd\u5b88\u6027\u306b\u512a\u308c\u308b\u3002<br \/>\n\uff13\u3001\u69cb\u6210\u753b\u9762\u304c\u540c\u3058\u306a\u70ba\u3001\u4f7f\u7528\u65b9\u6cd5\u7b49\u3092\u7d71\u4e00\u7684\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3002<br \/>\n\u7b49\u3067\u3059\u3002<\/p>\n<h4>\u30c7\u30e1\u30ea\u30c3\u30c8\u3068\u3057\u3066\u306f\u2026<\/h4>\n<p>\uff11\u3001\u4f7f\u3044\u307e\u308f\u3059\u70ba\u306b\u3053\u306e\u5171\u901a\u6a5f\u80fd\u306b\u9593\u9055\u3044\u304c\u3042\u308b\u3068\u5168\u90e8\u306b\u6ce2\u53ca\u3059\u308b\u3002<br \/>\n\uff12\u3001\u753b\u9762\u500b\u3005\u306b\u5171\u901a\u6a5f\u80fd\u306b\u5bfe\u3059\u308b\u30aa\u30ea\u30b8\u30ca\u30eb\u306a\u6a5f\u80fd\u306e\u5b9f\u88c5\u304c\u73fe\u5b9f\u7684\u3067\u306f\u306a\u3044\u3002\uff08\u53cd\u5171\u901a\u5316\u306a\u884c\u52d5\u306a\u70ba\u304a\u30b9\u30b9\u30e1\u306f\u3057\u307e\u305b\u3093\u304c\u3042\u3048\u3066\u8a00\u3046\u306a\u3089\u2026\uff09<\/p>\n<p>\u4e00\u69d8\u306b\u30e1\u30ea\u30c3\u30c8\u30fb\u30c7\u30e1\u30ea\u30c3\u30c8\u306f\u3042\u308a\u307e\u3059\u304c\u3001\u30e1\u30ea\u30c3\u30c8\u306e\u65b9\u304c\u5727\u5012\u7684\u306b\u591a\u3044\u306e\u3067\u4e16\u9593\u3067\u306f\u5f53\u7136\u306e\u8003\u3048\u65b9\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n\u305d\u3053\u3067\u3001\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u3092\u4f5c\u6210\u3057\u3066\u4f7f\u3044\u307e\u308f\u3059\u65b9\u6cd5\u3092\u8a18\u8f09\u3044\u305f\u3057\u307e\u3059\u3002<br \/>\n\u5c1a\u3001\u5f53\u65b9\u306e\u74b0\u5883\u3067\u884c\u3063\u3066\u3044\u308b\u70ba\u3001\u591a\u5c11\u306e\u64cd\u4f5c\u30fb\u8a2d\u5b9a\u306b\u629c\u3051\u304c\u3042\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u306e\u306f\u3054\u4e86\u627f\u304f\u3060\u3055\u3044\u3002<\/p>\n<h3>\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u3092\u7528\u610f<\/h3>\n<p>\u307e\u305a\u3001\u753b\u9762\u306e\u3088\u3046\u306b\u30e1\u30a4\u30f3\u30d7\u30ed\u30b8\u30a7\u30af\u30c8(Sample1)\u3068\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u30d7\u30ed\u30b8\u30a7\u30af\u30c8(BaseForm)\u3092\u542b\u3080\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\u3092\u7528\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u65e2\u5b58\u306e\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\u306b\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u30d7\u30ed\u30b8\u30a7\u30af\u30c8(BaseForm)\u3092\u8ffd\u52a0\u3057\u3066\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_1.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_1-300x201.jpg\" alt=\"20161130_1\" width=\"300\" height=\"201\" class=\"alignnone size-medium wp-image-378\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_1-300x201.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_1.jpg 486w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u4eca\u56de\u306e\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u306f\u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2464\u3067\u4f5c\u6210\u3057\u305f\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u30ad\u30fc\u3092\u542b\u3080\u3082\u306e\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<blockquote class=\"wp-embedded-content\" data-secret=\"EOJ8ndBL3D\"><p><a href=\"https:\/\/onaraboo.com\/?p=370\">Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2464<\/a><\/p><\/blockquote>\n<p><iframe loading=\"lazy\" class=\"wp-embedded-content\" sandbox=\"allow-scripts\" security=\"restricted\" style=\"position: absolute; visibility: hidden;\" title=\"&#8220;Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2464&#8221; &#8212; \u4e0a\u306b\u306f\u4e0a\u304c\u3042\u308b\u3055\" src=\"https:\/\/onaraboo.com\/?p=370&#038;embed=true#?secret=pP0tjg9mkC#?secret=EOJ8ndBL3D\" data-secret=\"EOJ8ndBL3D\" width=\"500\" height=\"282\" frameborder=\"0\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\"><\/iframe><\/p>\n<p>\u753b\u9762\u30c7\u30b6\u30a4\u30f3\u304c\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2-300x121.jpg\" alt=\"20161130_2\" width=\"300\" height=\"121\" class=\"alignnone size-medium wp-image-387\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2-300x121.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2-768x310.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2-1024x413.jpg 1024w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_2.jpg 1043w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u6a5f\u80fd\u3068\u3057\u3066\u306f<br \/>\n\u2460\u6a5f\u80fd\u30bf\u30a4\u30c8\u30eb\u306e\u8868\u793a<br \/>\n\u2461\u30ed\u30b0\u30a4\u30f3\u30e6\u30fc\u30b6\u30fcID\u30fb\u30e6\u30fc\u30b6\u30fc\u540d\u306e\u8868\u793a<br \/>\n\u2462F1\uff5eF12\u307e\u3067\u306e\u30d5\u30eb\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u30ad\u30fc<br \/>\n\u2463\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u30e2\u30fc\u30c9\u8868\u793a\u30fb\u30b3\u30e1\u30f3\u30c8\u8868\u793a\u30fb\u6642\u523b\u8868\u793a<br \/>\n\u2464\u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2464\u3067\u7d39\u4ecb\u3057\u305f\u300c\u3010\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u30ad\u30fc\u306e\u6709\u52b9\u30fb\u7121\u52b9\u3092\u5236\u5fa1\u3059\u308b\u3011\u300d\u306e\u6a5f\u80fd\u3092\u5229\u7528\u53ef\u80fd\u3002<br \/>\n\u7b49\u3067\u3059\u3002<br \/>\n\u30c7\u30b6\u30a4\u30f3\u30bd\u30fc\u30b9\u306f\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n&lt;Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()&gt; _\r\nPartial Class BaseForm\r\n    Inherits System.Windows.Forms.Form\r\n\r\n    '\u30d5\u30a9\u30fc\u30e0\u304c\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u306e\u4e00\u89a7\u3092\u30af\u30ea\u30fc\u30f3\u30a2\u30c3\u30d7\u3059\u308b\u305f\u3081\u306b dispose \u3092\u30aa\u30fc\u30d0\u30fc\u30e9\u30a4\u30c9\u3057\u307e\u3059\u3002\r\n    &lt;System.Diagnostics.DebuggerNonUserCode()&gt; _\r\n    Protected Overrides Sub Dispose(ByVal disposing As Boolean)\r\n        Try\r\n            If disposing AndAlso components IsNot Nothing Then\r\n                components.Dispose()\r\n            End If\r\n        Finally\r\n            MyBase.Dispose(disposing)\r\n        End Try\r\n    End Sub\r\n\r\n    'Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3067\u5fc5\u8981\u3067\u3059\u3002\r\n    Private components As System.ComponentModel.IContainer\r\n\r\n    '\u30e1\u30e2: \u4ee5\u4e0b\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306f Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3067\u5fc5\u8981\u3067\u3059\u3002\r\n    'Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3092\u4f7f\u7528\u3057\u3066\u5909\u66f4\u3067\u304d\u307e\u3059\u3002  \r\n    '\u30b3\u30fc\u30c9 \u30a8\u30c7\u30a3\u30bf\u30fc\u3092\u4f7f\u3063\u3066\u5909\u66f4\u3057\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002\r\n    &lt;System.Diagnostics.DebuggerStepThrough()&gt; _\r\n    Private Sub InitializeComponent()\r\n        Me.components = New System.ComponentModel.Container()\r\n        Me.StatusStrip = New System.Windows.Forms.StatusStrip()\r\n        Me.Button_F12 = New System.Windows.Forms.Button()\r\n        Me.Button_F11 = New System.Windows.Forms.Button()\r\n        Me.Button_F10 = New System.Windows.Forms.Button()\r\n        Me.Button_F9 = New System.Windows.Forms.Button()\r\n        Me.Button_F8 = New System.Windows.Forms.Button()\r\n        Me.Button_F7 = New System.Windows.Forms.Button()\r\n        Me.Button_F6 = New System.Windows.Forms.Button()\r\n        Me.Button_F5 = New System.Windows.Forms.Button()\r\n        Me.Button_F4 = New System.Windows.Forms.Button()\r\n        Me.Button_F3 = New System.Windows.Forms.Button()\r\n        Me.Button_F2 = New System.Windows.Forms.Button()\r\n        Me.Button_F1 = New System.Windows.Forms.Button()\r\n        Me.Label_UserID = New System.Windows.Forms.Label()\r\n        Me.Label_Title = New System.Windows.Forms.Label()\r\n        Me.Timer = New System.Windows.Forms.Timer(Me.components)\r\n        Me.ToolStripStatusLabel_NowDayTime = New System.Windows.Forms.ToolStripStatusLabel()\r\n        Me.ToolStripStatusLabel_Comment = New System.Windows.Forms.ToolStripStatusLabel()\r\n        Me.ToolStripStatusLabel_StatusInfo = New System.Windows.Forms.ToolStripStatusLabel()\r\n        Me.StatusStrip.SuspendLayout()\r\n        Me.SuspendLayout()\r\n        '\r\n        'StatusStrip\r\n        '\r\n        Me.StatusStrip.AutoSize = False\r\n        Me.StatusStrip.GripMargin = New System.Windows.Forms.Padding(0)\r\n        Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel_StatusInfo, Me.ToolStripStatusLabel_Comment, Me.ToolStripStatusLabel_NowDayTime})\r\n        Me.StatusStrip.Location = New System.Drawing.Point(0, 350)\r\n        Me.StatusStrip.Name = &quot;StatusStrip&quot;\r\n        Me.StatusStrip.Size = New System.Drawing.Size(1014, 25)\r\n        Me.StatusStrip.SizingGrip = False\r\n        Me.StatusStrip.TabIndex = 0\r\n        Me.StatusStrip.Text = &quot;StatusStrip1&quot;\r\n        '\r\n        'Button_F12\r\n        '\r\n        Me.Button_F12.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F12.Location = New System.Drawing.Point(930, 315)\r\n        Me.Button_F12.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F12.Name = &quot;Button_F12&quot;\r\n        Me.Button_F12.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F12.TabIndex = 29\r\n        Me.Button_F12.Text = &quot;F12\uff1a&quot;\r\n        Me.Button_F12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F12.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F11\r\n        '\r\n        Me.Button_F11.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F11.Location = New System.Drawing.Point(848, 315)\r\n        Me.Button_F11.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F11.Name = &quot;Button_F11&quot;\r\n        Me.Button_F11.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F11.TabIndex = 28\r\n        Me.Button_F11.Text = &quot;F11\uff1a&quot;\r\n        Me.Button_F11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F11.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F10\r\n        '\r\n        Me.Button_F10.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F10.Location = New System.Drawing.Point(766, 315)\r\n        Me.Button_F10.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F10.Name = &quot;Button_F10&quot;\r\n        Me.Button_F10.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F10.TabIndex = 27\r\n        Me.Button_F10.Text = &quot;F10\uff1a&quot;\r\n        Me.Button_F10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F10.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F9\r\n        '\r\n        Me.Button_F9.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F9.Location = New System.Drawing.Point(684, 315)\r\n        Me.Button_F9.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F9.Name = &quot;Button_F9&quot;\r\n        Me.Button_F9.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F9.TabIndex = 26\r\n        Me.Button_F9.Text = &quot;F9\uff1a&quot;\r\n        Me.Button_F9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F9.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F8\r\n        '\r\n        Me.Button_F8.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F8.Location = New System.Drawing.Point(592, 315)\r\n        Me.Button_F8.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F8.Name = &quot;Button_F8&quot;\r\n        Me.Button_F8.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F8.TabIndex = 25\r\n        Me.Button_F8.Text = &quot;F8\uff1a&quot;\r\n        Me.Button_F8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F8.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F7\r\n        '\r\n        Me.Button_F7.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F7.Location = New System.Drawing.Point(510, 315)\r\n        Me.Button_F7.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F7.Name = &quot;Button_F7&quot;\r\n        Me.Button_F7.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F7.TabIndex = 24\r\n        Me.Button_F7.Text = &quot;F7\uff1a&quot;\r\n        Me.Button_F7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F7.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F6\r\n        '\r\n        Me.Button_F6.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F6.Location = New System.Drawing.Point(428, 315)\r\n        Me.Button_F6.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F6.Name = &quot;Button_F6&quot;\r\n        Me.Button_F6.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F6.TabIndex = 23\r\n        Me.Button_F6.Text = &quot;F6\uff1a&quot;\r\n        Me.Button_F6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F6.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F5\r\n        '\r\n        Me.Button_F5.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F5.Location = New System.Drawing.Point(346, 315)\r\n        Me.Button_F5.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F5.Name = &quot;Button_F5&quot;\r\n        Me.Button_F5.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F5.TabIndex = 22\r\n        Me.Button_F5.Text = &quot;F5\uff1a&quot;\r\n        Me.Button_F5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F5.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F4\r\n        '\r\n        Me.Button_F4.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F4.Location = New System.Drawing.Point(255, 315)\r\n        Me.Button_F4.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F4.Name = &quot;Button_F4&quot;\r\n        Me.Button_F4.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F4.TabIndex = 21\r\n        Me.Button_F4.Text = &quot;F4\uff1a&quot;\r\n        Me.Button_F4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F4.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F3\r\n        '\r\n        Me.Button_F3.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F3.Location = New System.Drawing.Point(173, 315)\r\n        Me.Button_F3.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F3.Name = &quot;Button_F3&quot;\r\n        Me.Button_F3.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F3.TabIndex = 20\r\n        Me.Button_F3.Text = &quot;F3\uff1a&quot;\r\n        Me.Button_F3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F3.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F2\r\n        '\r\n        Me.Button_F2.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F2.Location = New System.Drawing.Point(91, 315)\r\n        Me.Button_F2.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F2.Name = &quot;Button_F2&quot;\r\n        Me.Button_F2.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F2.TabIndex = 19\r\n        Me.Button_F2.Text = &quot;F2\uff1a&quot;\r\n        Me.Button_F2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F2.UseVisualStyleBackColor = True\r\n        '\r\n        'Button_F1\r\n        '\r\n        Me.Button_F1.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Button_F1.Location = New System.Drawing.Point(9, 315)\r\n        Me.Button_F1.Margin = New System.Windows.Forms.Padding(0)\r\n        Me.Button_F1.Name = &quot;Button_F1&quot;\r\n        Me.Button_F1.Size = New System.Drawing.Size(82, 27)\r\n        Me.Button_F1.TabIndex = 18\r\n        Me.Button_F1.Text = &quot;F1\uff1a&quot;\r\n        Me.Button_F1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft\r\n        Me.Button_F1.UseVisualStyleBackColor = True\r\n        '\r\n        'Label_UserID\r\n        '\r\n        Me.Label_UserID.BackColor = System.Drawing.Color.Transparent\r\n        Me.Label_UserID.Font = New System.Drawing.Font(&quot;\u30e1\u30a4\u30ea\u30aa&quot;, 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Label_UserID.ForeColor = System.Drawing.Color.Blue\r\n        Me.Label_UserID.Location = New System.Drawing.Point(682, 10)\r\n        Me.Label_UserID.Name = &quot;Label_UserID&quot;\r\n        Me.Label_UserID.Size = New System.Drawing.Size(323, 30)\r\n        Me.Label_UserID.TabIndex = 55\r\n        Me.Label_UserID.Text = &quot;Label_UserID&quot;\r\n        Me.Label_UserID.TextAlign = System.Drawing.ContentAlignment.MiddleRight\r\n        '\r\n        'Label_Title\r\n        '\r\n        Me.Label_Title.BackColor = System.Drawing.Color.DarkBlue\r\n        Me.Label_Title.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.Label_Title.ForeColor = System.Drawing.Color.Cyan\r\n        Me.Label_Title.Location = New System.Drawing.Point(9, 9)\r\n        Me.Label_Title.Name = &quot;Label_Title&quot;\r\n        Me.Label_Title.Size = New System.Drawing.Size(328, 30)\r\n        Me.Label_Title.TabIndex = 54\r\n        Me.Label_Title.Text = &quot;\u30bf\u30a4\u30c8\u30eb&quot;\r\n        Me.Label_Title.TextAlign = System.Drawing.ContentAlignment.MiddleCenter\r\n        '\r\n        'Timer\r\n        '\r\n        Me.Timer.Enabled = True\r\n        '\r\n        'ToolStripStatusLabel_NowDayTime\r\n        '\r\n        Me.ToolStripStatusLabel_NowDayTime.AutoSize = False\r\n        Me.ToolStripStatusLabel_NowDayTime.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)\r\n        Me.ToolStripStatusLabel_NowDayTime.BorderStyle = System.Windows.Forms.Border3DStyle.RaisedInner\r\n        Me.ToolStripStatusLabel_NowDayTime.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text\r\n        Me.ToolStripStatusLabel_NowDayTime.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.ToolStripStatusLabel_NowDayTime.Margin = New System.Windows.Forms.Padding(0, 3, 0, 0)\r\n        Me.ToolStripStatusLabel_NowDayTime.Name = &quot;ToolStripStatusLabel_NowDayTime&quot;\r\n        Me.ToolStripStatusLabel_NowDayTime.Size = New System.Drawing.Size(200, 22)\r\n        Me.ToolStripStatusLabel_NowDayTime.Text = &quot;ToolStripStatusLabel1&quot;\r\n        '\r\n        'ToolStripStatusLabel_Comment\r\n        '\r\n        Me.ToolStripStatusLabel_Comment.AutoSize = False\r\n        Me.ToolStripStatusLabel_Comment.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)\r\n        Me.ToolStripStatusLabel_Comment.BorderStyle = System.Windows.Forms.Border3DStyle.RaisedInner\r\n        Me.ToolStripStatusLabel_Comment.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text\r\n        Me.ToolStripStatusLabel_Comment.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.ToolStripStatusLabel_Comment.Margin = New System.Windows.Forms.Padding(0, 3, 0, 0)\r\n        Me.ToolStripStatusLabel_Comment.Name = &quot;ToolStripStatusLabel_Comment&quot;\r\n        Me.ToolStripStatusLabel_Comment.Size = New System.Drawing.Size(600, 22)\r\n        Me.ToolStripStatusLabel_Comment.Text = &quot;ToolStripStatusLabel2&quot;\r\n        '\r\n        'ToolStripStatusLabel_StatusInfo\r\n        '\r\n        Me.ToolStripStatusLabel_StatusInfo.AutoSize = False\r\n        Me.ToolStripStatusLabel_StatusInfo.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _\r\n            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)\r\n        Me.ToolStripStatusLabel_StatusInfo.BorderStyle = System.Windows.Forms.Border3DStyle.RaisedInner\r\n        Me.ToolStripStatusLabel_StatusInfo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text\r\n        Me.ToolStripStatusLabel_StatusInfo.Font = New System.Drawing.Font(&quot;\uff2d\uff33 \u30b4\u30b7\u30c3\u30af&quot;, 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))\r\n        Me.ToolStripStatusLabel_StatusInfo.Margin = New System.Windows.Forms.Padding(0, 3, 0, 0)\r\n        Me.ToolStripStatusLabel_StatusInfo.Name = &quot;ToolStripStatusLabel_StatusInfo&quot;\r\n        Me.ToolStripStatusLabel_StatusInfo.Size = New System.Drawing.Size(200, 22)\r\n        Me.ToolStripStatusLabel_StatusInfo.Text = &quot;ToolStripStatusLabel3&quot;\r\n        '\r\n        'BaseForm\r\n        '\r\n        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)\r\n        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font\r\n        Me.ClientSize = New System.Drawing.Size(1014, 375)\r\n        Me.Controls.Add(Me.Label_UserID)\r\n        Me.Controls.Add(Me.Label_Title)\r\n        Me.Controls.Add(Me.Button_F12)\r\n        Me.Controls.Add(Me.Button_F11)\r\n        Me.Controls.Add(Me.Button_F10)\r\n        Me.Controls.Add(Me.Button_F9)\r\n        Me.Controls.Add(Me.Button_F8)\r\n        Me.Controls.Add(Me.Button_F7)\r\n        Me.Controls.Add(Me.Button_F6)\r\n        Me.Controls.Add(Me.Button_F5)\r\n        Me.Controls.Add(Me.Button_F4)\r\n        Me.Controls.Add(Me.Button_F3)\r\n        Me.Controls.Add(Me.Button_F2)\r\n        Me.Controls.Add(Me.Button_F1)\r\n        Me.Controls.Add(Me.StatusStrip)\r\n        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle\r\n        Me.Name = &quot;BaseForm&quot;\r\n        Me.Text = &quot;BaseForm&quot;\r\n        Me.StatusStrip.ResumeLayout(False)\r\n        Me.StatusStrip.PerformLayout()\r\n        Me.ResumeLayout(False)\r\n\r\n    End Sub\r\n    Public WithEvents StatusStrip As System.Windows.Forms.StatusStrip\r\n    Friend WithEvents ToolStripStatusLabel_StatusInfo As System.Windows.Forms.ToolStripStatusLabel\r\n    Friend WithEvents ToolStripStatusLabel_Comment As System.Windows.Forms.ToolStripStatusLabel\r\n    Public WithEvents ToolStripStatusLabel_NowDayTime As System.Windows.Forms.ToolStripStatusLabel\r\n    Public WithEvents Button_F12 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F11 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F10 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F9 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F8 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F7 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F6 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F5 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F4 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F3 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F2 As System.Windows.Forms.Button\r\n    Public WithEvents Button_F1 As System.Windows.Forms.Button\r\n    Public WithEvents Label_UserID As System.Windows.Forms.Label\r\n    Public WithEvents Label_Title As System.Windows.Forms.Label\r\n    Friend WithEvents Timer As System.Windows.Forms.Timer\r\n\r\nEnd Class\r\n<\/pre>\n<p>\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u306e\u30b3\u30fc\u30c9\u30bd\u30fc\u30b9\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nPublic Class BaseForm\r\n    Inherits System.Windows.Forms.Form\r\n    '\u30dc\u30bf\u30f3\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u914d\u5217\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u3092\u4f5c\u6210\r\n    Private FuncButtons() As System.Windows.Forms.Button\r\n    '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u60c5\u5831(\u30e2\u30fc\u30c9)\u7528\u5909\u6570\r\n    Public strInfoMode As String = String.Empty\r\n    '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u60c5\u5831(\u30e2\u30fc\u30c9\u306e\u6587\u5b57\u30ab\u30e9\u30fc)\u7528\u5909\u6570\r\n    Public strInfoModeForeColor As Drawing.Color = Color.Black\r\n    '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u60c5\u5831(\u30e2\u30fc\u30c9\u306e\u30d0\u30c3\u30af\u30ab\u30e9\u30fc)\u7528\u5909\u6570\r\n    Public strInfoModeBackColor As Drawing.Color = Color.White\r\n    '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u60c5\u5831(\u9805\u76ee\u30b3\u30e1\u30f3\u30c8)\u7528\u5909\u6570\r\n    Public strInfoComment As String = String.Empty\r\n\r\n    Private Sub BaseForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load\r\n\r\n        '\u30dc\u30bf\u30f3\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u914d\u5217\u306e\u4f5c\u6210\r\n        Me.FuncButtons = New System.Windows.Forms.Button(11) {}\r\n        '\u30dc\u30bf\u30f3\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u914d\u5217\u306b\u3059\u3067\u306b\u4f5c\u6210\u3055\u308c\u3066\u3044\u308b\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u4ee3\u5165\r\n        Me.FuncButtons(0) = Me.Button_F1\r\n        Me.FuncButtons(1) = Me.Button_F2\r\n        Me.FuncButtons(2) = Me.Button_F3\r\n        Me.FuncButtons(3) = Me.Button_F4\r\n        Me.FuncButtons(4) = Me.Button_F5\r\n        Me.FuncButtons(5) = Me.Button_F6\r\n        Me.FuncButtons(6) = Me.Button_F7\r\n        Me.FuncButtons(7) = Me.Button_F8\r\n        Me.FuncButtons(8) = Me.Button_F9\r\n        Me.FuncButtons(9) = Me.Button_F10\r\n        Me.FuncButtons(10) = Me.Button_F11\r\n        Me.FuncButtons(11) = Me.Button_F12\r\n\r\n        '\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u521d\u671f\u5316\r\n        With Me\r\n            '\u30e6\u30fc\u30b6\u30fc\r\n            .Label_UserID.Text = String.Empty\r\n            .ToolStripStatusLabel_Comment.Width = .StatusStrip.Width - .ToolStripStatusLabel_StatusInfo.Width - ToolStripStatusLabel_NowDayTime.Width\r\n\r\n            .ToolStripStatusLabel_StatusInfo.Text = String.Empty\r\n            .ToolStripStatusLabel_StatusInfo.ForeColor = Color.Black\r\n            .ToolStripStatusLabel_StatusInfo.BackColor = Color.WhiteSmoke\r\n\r\n            .ToolStripStatusLabel_NowDayTime.Text = String.Empty\r\n            .Label_Title.Text = String.Empty\r\n            '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u8868\u793a\uff08\u30e2\u30fc\u30c9\uff09\r\n            .ToolStripStatusLabel_StatusInfo.Text = String.Empty\r\n            .ToolStripStatusLabel_Comment.Text = String.Empty\r\n\r\n        End With\r\n\r\n    End Sub\r\n\r\n    '--------------------------------------------------------------------------------\r\n    '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u8868\u793a\r\n    '--------------------------------------------------------------------------------\r\n    Private Sub Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Timer.Tick\r\n\r\n        '\u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u306e\u8868\u793a\uff08\u6642\u523b\uff09\r\n        ToolStripStatusLabel_NowDayTime.Text = Format(Now, &quot;yyyy\/MM\/dd HH:mm&quot;)\r\n\r\n        '\u30e2\u30fc\u30c9\u540d\u3092\u51fa\u529b\r\n        ToolStripStatusLabel_StatusInfo.Text = strInfoMode\r\n        ToolStripStatusLabel_StatusInfo.ForeColor = strInfoModeForeColor\r\n        ToolStripStatusLabel_StatusInfo.BackColor = strInfoModeBackColor\r\n        '\u30b3\u30e1\u30f3\u30c8\u3092\u51fa\u529b\r\n        ToolStripStatusLabel_Comment.Text = strInfoComment\r\n\r\n\r\n    End Sub\r\n\r\n    ''' &lt;summary&gt;\r\n    ''' \u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u30ad\u30fc\u306e\u6709\u52b9\u7121\u52b9\u5236\u5fa1\u30a4\u30d9\u30f3\u30c8\r\n    ''' &lt;\/summary&gt;\r\n    ''' &lt;param name=&quot;strFCode&quot;&gt;\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u6587\u5b57\u5217(12\u6841)&lt;\/param&gt;\r\n    ''' &lt;remarks&gt;&lt;\/remarks&gt;\r\n    Public Sub BaseForm12_Function(ByVal strFCode As String)\r\n\r\n        Dim intI As Integer = 0\r\n        Dim intA As Integer = 0\r\n\r\n        If Len(strFCode) &lt;&gt; 14 Then\r\n            MessageBox.Show(&quot;\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u6587\u5b57\u5217\u304c\u4e0d\u6b63\u3067\u3059\u3002&quot; &amp; Chr(13) &amp; &quot;\u7d42\u4e86\u3044\u305f\u3057\u307e\u3059\u3002&quot;, _\r\n                            &quot;BaseForm_Function\uff74\uff97\uff70&quot;, MessageBoxButtons.OK, MessageBoxIcon.Error)\r\n            End\r\n        End If\r\n\r\n        For intI = 1 To 14\r\n            '\u300c-\u300d\u3092\u9664\u5916\r\n            Select Case intI\r\n                Case 1 To 4\r\n                    intA = 1\r\n                Case 5 To 9\r\n                    intA = 2\r\n                Case 10 To 14\r\n                    intA = 3\r\n            End Select\r\n            '\u30c1\u30a7\u30c3\u30af\r\n            If Mid(strFCode, intI, 1) = &quot;0&quot; Then\r\n                Me.FuncButtons(intI - intA).Enabled = False\r\n\r\n            ElseIf Mid(strFCode, intI, 1) = &quot;1&quot; Then\r\n                Me.FuncButtons(intI - intA).Enabled = True\r\n\r\n            ElseIf Mid(strFCode, intI, 1) = &quot;-&quot; Then\r\n                '\u300c-\u300d\u306f\u533a\u5207\u308a\u8a18\u53f7\u306e\u70ba\u306b\u4f55\u3082\u3057\u306a\u3044\r\n\r\n            Else\r\n                Me.FuncButtons(intI - intA).Enabled = False\r\n\r\n            End If\r\n        Next\r\n    End Sub\r\n\r\nEnd Class\r\n<\/pre>\n<h3>\u30e1\u30a4\u30f3\u30d5\u30a9\u30fc\u30e0\u306b\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u3092\u95a2\u9023\u4ed8\u3051\u308b<\/h3>\n<p>\u30e1\u30a4\u30f3\u30d5\u30a9\u30fc\u30e0\uff08\u6a5f\u80fd\u3092\u5f35\u308a\u4ed8\u3051\u308b\u5074\uff09\u306e\u69cb\u6210\u3067\u3059\u3002<br \/>\n\u4e00\u5fdc\u3001\u30e1\u30a4\u30f3\u30d5\u30a9\u30fc\u30e0\u306f\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u3068\u540c\u3058\u5927\u304d\u3055\u3067\u69cb\u6210\u3059\u308b\u3068\u8003\u3048\u65b9\u306f\u697d\u3067\u3059\u3002<br \/>\n\u4f5c\u6210\u753b\u9762\u306f\u3053\u3093\u306a\u611f\u3058\u3002\u4f55\u3068\u3082\u6bba\u98a8\u666f\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3-300x119.jpg\" alt=\"20161130_3\" width=\"300\" height=\"119\" class=\"alignnone size-medium wp-image-386\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3-300x119.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3-768x306.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3-1024x407.jpg 1024w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_3.jpg 1048w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u30c7\u30b6\u30a4\u30f3\u30bd\u30fc\u30b9\u306f<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n&lt;Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()&gt; _\r\nPartial Class MainForm\r\n    Inherits System.Windows.Forms.Form\r\n\r\n    '\u30d5\u30a9\u30fc\u30e0\u304c\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u306e\u4e00\u89a7\u3092\u30af\u30ea\u30fc\u30f3\u30a2\u30c3\u30d7\u3059\u308b\u305f\u3081\u306b dispose \u3092\u30aa\u30fc\u30d0\u30fc\u30e9\u30a4\u30c9\u3057\u307e\u3059\u3002\r\n    &lt;System.Diagnostics.DebuggerNonUserCode()&gt; _\r\n    Protected Overrides Sub Dispose(ByVal disposing As Boolean)\r\n        Try\r\n            If disposing AndAlso components IsNot Nothing Then\r\n                components.Dispose()\r\n            End If\r\n        Finally\r\n            MyBase.Dispose(disposing)\r\n        End Try\r\n    End Sub\r\n\r\n    'Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3067\u5fc5\u8981\u3067\u3059\u3002\r\n    Private components As System.ComponentModel.IContainer\r\n\r\n    '\u30e1\u30e2: \u4ee5\u4e0b\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306f Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3067\u5fc5\u8981\u3067\u3059\u3002\r\n    'Windows \u30d5\u30a9\u30fc\u30e0 \u30c7\u30b6\u30a4\u30ca\u30fc\u3092\u4f7f\u7528\u3057\u3066\u5909\u66f4\u3067\u304d\u307e\u3059\u3002  \r\n    '\u30b3\u30fc\u30c9 \u30a8\u30c7\u30a3\u30bf\u30fc\u3092\u4f7f\u3063\u3066\u5909\u66f4\u3057\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002\r\n    &lt;System.Diagnostics.DebuggerStepThrough()&gt; _\r\n    Private Sub InitializeComponent()\r\n        Me.SuspendLayout()\r\n        '\r\n        'MainForm\r\n        '\r\n        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)\r\n        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font\r\n        Me.ClientSize = New System.Drawing.Size(1014, 375)\r\n        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle\r\n        Me.MinimizeBox = False\r\n        Me.Name = &quot;MainForm&quot;\r\n        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen\r\n        Me.Text = &quot;MainForm&quot;\r\n        Me.ResumeLayout(False)\r\n\r\n    End Sub\r\n\r\nEnd Class\r\n<\/pre>\n<p>\u30e1\u30a4\u30f3\u30d5\u30a9\u30fc\u30e0\u306e\u30bd\u30fc\u30b9<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nPublic Class MainForm\r\n    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load\r\n\r\n    End Sub\r\nEnd Class\r\n\r\n<\/pre>\n<p>\u3053\u3053\u3067BaseForm\u3092\u30b3\u30f3\u30d1\u30a4\u30eb\u3057\u3066\u304a\u304d\u307e\u3059\u3002<br \/>\nMainForm\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u3092\u958b\u3044\u3066\u53c2\u7167\u30bf\u30d6\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_4.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_4-300x206.jpg\" alt=\"20161130_4\" width=\"300\" height=\"206\" class=\"alignnone size-medium wp-image-385\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_4-300x206.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_4-768x526.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_4.jpg 985w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u53c2\u7167\u306e\u8ffd\u52a0\u3092\u884c\u3044\u307e\u3059\u3002\u300c\u8ffd\u52a0\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u300d\u306e\u30bf\u30d6\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_5.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_5-300x189.jpg\" alt=\"20161130_5\" width=\"300\" height=\"189\" class=\"alignnone size-medium wp-image-384\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_5-300x189.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_5.jpg 654w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u305d\u3046\u3059\u308b\u3068\u753b\u9762\u306e\u3088\u3046\u306b\u540c\u3058\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\u306eBaseForm\u304c\u9078\u629e\u3067\u304d\u307e\u3059\u3002\u3053\u308c\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_6.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_6-300x66.jpg\" alt=\"20161130_6\" width=\"300\" height=\"66\" class=\"alignnone size-medium wp-image-383\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_6-300x66.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_6-768x169.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_6.jpg 988w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>MainForm\u306e\u30b3\u30fc\u30c9\u3092\u958b\u304d\u8a2d\u5b9a\u3092\u3044\u308c\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nPublic Class MainForm\r\n    Inherits BaseForm.BaseForm\r\n\r\n    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load\r\n\r\n    End Sub\r\nEnd Class\r\n<\/pre>\n<p>\u305d\u3046\u3059\u308b\u3068\u3053\u3093\u306a\u611f\u3058\u3067\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_7.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_7-300x113.jpg\" alt=\"20161130_7\" width=\"300\" height=\"113\" class=\"alignnone size-medium wp-image-382\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_7-300x113.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_7.jpg 311w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_8.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_8-300x36.jpg\" alt=\"20161130_8\" width=\"300\" height=\"36\" class=\"alignnone size-medium wp-image-381\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_8-300x36.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_8-768x92.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_8.jpg 881w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u30a8\u30e9\u30fc\u306b\u30de\u30a6\u30b9\u30ab\u30fc\u30bd\u30eb\u3092\u5408\u308f\u305b\u308b\u3068\u3053\u3093\u306a\u3053\u3068\u3092\u8a00\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_9.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_9-300x119.jpg\" alt=\"20161130_9\" width=\"300\" height=\"119\" class=\"alignnone size-medium wp-image-380\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_9-300x119.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_9.jpg 341w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u4e0a\u6bb5\u306e\u300cBaseForm.BaseForm\u304b\u3089\u7d99\u627f\u3059\u308b\u305f\u3081\u306b\u30af\u30e9\u30b9&#8217;MainForm&#8217;\u3092\u5909\u66f4\u3057\u307e\u3059\u3002\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n\u3059\u308b\u3068\u3001MainForm\u753b\u9762\u306e\u30c7\u30b6\u30a4\u30f3\u306b\u623b\u308c\u3070\u30d9\u30fc\u30b9\u306e\u5185\u5bb9\u304c\u5f35\u308a\u4ed8\u3044\u3066\u308a\u3088\u3046\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10-300x121.jpg\" alt=\"20161130_10\" width=\"300\" height=\"121\" class=\"alignnone size-medium wp-image-379\" srcset=\"https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10-300x121.jpg 300w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10-768x311.jpg 768w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10-1024x415.jpg 1024w, https:\/\/onaraboo.com\/wordpress\/wp-content\/uploads\/2016\/11\/20161130_10.jpg 1035w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u3053\u308c\u3067\u6a5f\u80fd\u306e\u4f7f\u3044\u56de\u3057\u304c\u53ef\u80fd\u3067\u3059\u3002\u4ed6\u306e\u30d5\u30a9\u30fc\u30e0\u3067\u3082\u540c\u69d8\u306b\u30d9\u30fc\u30b9\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3044\u307e\u308f\u305b\u307e\u3059\u3002<br \/>\n\u3044\u308d\u3044\u308d\u5fdc\u7528\u53ef\u80fd\u3067\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u696d\u52d9\u30a2\u30d7\u30ea\u3067\u4f7f\u7528\u3067\u304d\u305d\u3046\u306a\u3082\u306e\u3092\u4e94\u6708\u96e8\u306b\u8a18\u9332\u3057\u3066\u304a\u304f\u3002 \u307e\u3068\u307e\u308b\u307e\u3067\u5f85\u3063\u3066\u3044\u308b\u3068\u5fd8\u308c\u3066\u3057\u307e\u3046\u305f\u3081\u306b\uff65\uff65\uff65\u3002\uff57\uff57 \u306a\u304a\u3001\u3053\u306e\u30d6\u30ed\u30b0\u5185\u306b\u8a18\u8f09\u3057\u3066\u3044\u308b\u30bd\u30fc\u30b9\u306e\u8ee2\u8f09\u30fb\u8ee2\u7528\u306b\u3064\u3044\u3066\u306f\u4f55\u3082\u7e1b\u308a\u306f\u3042\u308a\u307e\u305b\u3093\u3002 \u3054\u4f7f&#8230;<\/p>\n<div class=\"more-link-wrapper\"><a class=\"more-link\" href=\"https:\/\/onaraboo.com\/?p=376\">Read more<span class=\"screen-reader-text\">Visual Basic.NET \u3044\u308d\u3044\u308d\u306a\u30c6\u30af\u30cb\u30c3\u30af\u2465<\/span><\/a><\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10,5,2],"tags":[],"class_list":["post-376","post","type-post","status-publish","format-standard","hentry","category-visual-basic-net","category-5","category-2","entry"],"_links":{"self":[{"href":"https:\/\/onaraboo.com\/index.php?rest_route=\/wp\/v2\/posts\/376","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/onaraboo.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/onaraboo.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/onaraboo.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/onaraboo.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=376"}],"version-history":[{"count":0,"href":"https:\/\/onaraboo.com\/index.php?rest_route=\/wp\/v2\/posts\/376\/revisions"}],"wp:attachment":[{"href":"https:\/\/onaraboo.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=376"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/onaraboo.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=376"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/onaraboo.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=376"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}