{"id":11589,"date":"2016-02-15T11:50:22","date_gmt":"2016-02-15T02:50:22","guid":{"rendered":"http:\/\/a-tak.com\/blog\/?page_id=11589"},"modified":"2019-11-22T12:32:38","modified_gmt":"2019-11-22T03:32:38","slug":"visualbasic-net","status":"publish","type":"page","link":"https:\/\/a-tak.com\/blog\/tips\/visualbasic-net\/","title":{"rendered":"VisualBasic.NET"},"content":{"rendered":"<div id=\"advads-1624220595\" class=\"advads-before-content-placement advads-entity-placement\" style=\"margin-left: auto;margin-right: auto;text-align: center;\"><div class=\"advads-adlabel\">\u5e83\u544a<\/div><script async src=\"\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js?client=ca-pub-7585646298782746\" crossorigin=\"anonymous\"><\/script><ins class=\"adsbygoogle\" style=\"display:inline-block;width:300px;height:250px;\" \ndata-ad-client=\"ca-pub-7585646298782746\" \ndata-ad-slot=\"6112122906\"><\/ins> \n<script> \n(adsbygoogle = window.adsbygoogle || []).push({}); \n<\/script>\n<\/div><p>FrontPage<\/p>\n<ul>\n<li>XML Web\u30b5\u30fc\u30d3\u30b9\u3092\u4f5c\u3063\u3066\u307f\u308b [#sb2f8267]<\/li>\n<\/ul>\n<p>\u8ad6\u3088\u308a\u30bd\u30fc\u30b9\u3068\u3044\u3046\u3053\u3068\u3067\u3001MS\u306e10\u884c\u30b7\u30ea\u30fc\u30ba:http:\/\/www.microsoft.com\/japan\/msdn\/thisweek\/wednesday\/default.asp\u304c \u4e00\u756a\u308f\u304b\u308a\u3084\u3059\u3044\u3002\u672c\u5f53\u306b10\u884c\u3067\u51fa\u6765\u3066\u3057\u307e\u3046\u306e\u3060\u304b\u3089\u304a\u305d\u308d\u3057\u3044\u30fb\u30fb\u30fb<\/p>\n<p>-Web\u30b5\u30fc\u30d3\u30b9\u30b5\u30fc\u30d0\u30fc\u5074 &#8211;http:\/\/www.microsoft.com\/japan\/msdn\/thisweek\/10lines\/aspnet_webservicedev_vb.asp -\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074 &#8211;http:\/\/www.microsoft.com\/japan\/msdn\/thisweek\/10lines\/winform_wscdev_vb.asp<\/p>\n<p>\u3053\u3093\u306a\u306b\u7c21\u5358\u306b\u3067\u304d\u308b\u3068\u306f\u30fb\u30fb\u30fb\u3002 \u4f5c\u6210\u3055\u308c\u305fWeb\u30b5\u30fc\u30d3\u30b9\u306e\u5b9f\u4f53\u306fIIS\u3067\u7ba1\u7406\u3055\u308c\u3066\u3044\u308b\u30d5\u30a9\u30eb\u30c0\u306b\u4f5c\u6210\u3055\u308c\u305fDLL\u306e\u3088\u3046\u3067\u3001 IIS\u304c\u3053\u308c\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3046\u307e\u3044\u3053\u3068SOAP\u3067\u304a\u3057\u3083\u3079\u308a\u3057\u3066\u304f\u308c\u308b\u306e\u3060\u308d\u3046\u3002 \u306a\u3093\u3068\u3044\u3046\u304b\u3001XML\u306a\u3093\u3066\u3069\u3053\u306b\u3082\u4e00\u5207\u3067\u3066\u3053\u306d\u3048\u3002<\/p>\n<ul>\n<li>\u8a2d\u5b9a\u3055\u308c\u305f\u30d7\u30ea\u30f3\u30bf\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30fc\u3092\u53d6\u5f97\u3059\u308b [#i4c0d5a8]<\/li>\n<\/ul>\n<p>PrintDialog\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u30bb\u30c3\u30c8\u3057\u3066\u3044\u308bPrintDocument\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e DefaultPageSettings\u304b\u3089\u53d6\u5f97\u3067\u304d\u308b\u3002\u4f8b\u306e\u3054\u3068\u304f\u30bd\u30fc\u30b9\u306f\u691c\u8a3c\u7528\u306a\u306e\u3067\u540d\u524d\u3082\u30c7\u30d5\u30a9\u30eb\u30c8\u306e\u307e\u3093\u307e\u3067\u3059\u3002<\/p>\n<p>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click &#8216;\u307e\u305a\u30d7\u30ea\u30f3\u30bf\u8a2d\u5b9a\u753b\u9762\u3092\u8868\u793a PrintDialog1.ShowDialog()<\/p>\n<p>Dim sourceName As String Dim kind As String &#8216;\u8a2d\u5b9a\u3055\u308c\u305f\u60c5\u5831\u3092\u53d6\u5f97(\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u308b\u7d66\u7d19\u30c8\u30ec\u30a4\u306e\u60c5\u5831\u53d6\u5f97) &#8216;PrintDocument1\u306fPrintDialog1\u306eDocument\u30d7\u30ed\u30d1\u30c6\u30a3\u30fc\u306b\u8a2d\u5b9a\u3057\u3066\u3042\u308b sourceName = PrintDocument1.DefaultPageSettings.PaperSource.SourceName kind = PrintDocument1.DefaultPageSettings.PaperSource.Kind<\/p>\n<p>MessageBox.Show(sourceName &amp; Environment.NewLine &amp; kind) &amp; kind)<\/p>\n<p>End Sub<\/p>\n<ul>\n<li>\u5370\u5237\u3057\u3066\u307f\u308b [#sbeeea33]<\/li>\n<\/ul>\n<p>\u3069\u3093\u306a\u98a8\u306b\u3057\u305f\u3089\u5370\u5237\u3067\u304d\u308b\u304b\u8a66\u3057\u3066\u307f\u305f\u3002\u30bd\u30fc\u30b9\u306f\u9069\u5f53\u306a\u306e\u3067\u3064\u3063\u3053\u307e\u306a\u3044\u3067(\u7b11)\u3002 Form\u306bPrintDocument\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3068\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u4e8c\u3064\u8cbc\u308a\u4ed8\u3051\u3066 \u4ee5\u4e0b\u306e\u30bd\u30fc\u30b9\u3092\u5165\u308c\u3066\u3084\u308c\u3070\u52d5\u304f\u306f\u305a\u3002TextBox2\u306e\u307b\u3046\u304c\u4e00\u5fdc\u898b\u51fa\u3057\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click &#8216;\u4eca\u56de\u306f\u30d5\u30a9\u30fc\u30e0\u306b\u8cbc\u308a\u4ed8\u3051\u305fPrintDocument\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u7528\u3002 &#8216;\u3044\u304d\u306a\u308a\u30bd\u30fc\u30b9\u304b\u3089\u3053\u306e\u30af\u30e9\u30b9\u3092New\u3057\u3066\u3082\u826f\u3044 &#8216;(\u305d\u3057\u3066AddressOf\u3067\u30a4\u30d9\u30f3\u30c8\u3092\u30e1\u30bd\u30c3\u30c9\u306b\u5272\u308a\u5f53\u3066\u308b) PrintDocument1.Print() End Sub<\/p>\n<p>Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage &#8216;\u4e00\u30da\u30fc\u30b8\u6bce\u306b\u3053\u306e\u30a4\u30d9\u30f3\u30c8\u304c\u767a\u751f\u3059\u308b<\/p>\n<p>&#8216;\u30bf\u30a4\u30c8\u30eb Dim titleFont As New Font(&quot;MS\u30b4\u30b7\u30c3\u30af&quot;, 16, FontStyle.Bold) e.Graphics.DrawString(TextBox2.Text, titleFont, Brushes.Black, _ e.MarginBounds.Left, _ e.MarginBounds.Top, _ New StringFormat)<\/p>\n<p>Dim printFont As New Font(&quot;MS\u30b4\u30b7\u30c3\u30af&quot;, 10) Dim linesPerPage As Single = 0 &#8216;\u4e00\u30da\u30fc\u30b8\u306b\u4f55\u884c\u306f\u3044\u308b\u304b\u306a? linesPerPage = _ (e.MarginBounds.Height &#8211; titleFont.GetHeight(e.Graphics)) \/ printFont.GetHeight(e.Graphics)<\/p>\n<p>&#8216;\u4e00\u30da\u30fc\u30b8\u306b\u5165\u308b\u3060\u3051\u5370\u5237(\u3068\u3057\u3066\u308b\u3064\u3082\u308a\u3060\u304c\u3001\u30c6\u30b9\u30c8\u3057\u3066\u306a\u3044^^;) Dim count As Integer = 0 Dim yPos As Single = 0 Do While count &lt; linesPerPage If (TextBox1.Lines.Length &#8211; 1) &lt; count Then &#8216;\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u305d\u308c\u4ee5\u4e0a\u306e\u884c\u306f\u306a\u3044! Exit Do End If<\/p>\n<p>yPos = (e.MarginBounds.Top + titleFont.GetHeight(e.Graphics)) + (count * printFont.GetHeight(e.Graphics)) e.Graphics.DrawString(TextBox1.Lines(count), _ printFont, Brushes.Black, _ e.MarginBounds.Left, _ yPos, _ New StringFormat) count += 1 Loop<\/p>\n<p>&#8216;\u4e00\u30da\u30fc\u30b8\u306e\u307f e.HasMorePages = False<\/p>\n<p>End Sub<\/p>\n<ul>\n<li>Enum\u3092\u30b7\u30ea\u30a2\u30e9\u30a4\u30ba\u3057\u305f\u3082\u306e\u306fSerializationInfo.GetString\u3067\u8aad\u3081\u3066\u3057\u307e\u3046 [#j2f82dec]<\/li>\n<\/ul>\n<p>Enum\u5024\u30923\u3064\u306e\u5f15\u6570\u3092\u3068\u308bSerializationInfo.AddValue\u30e1\u30bd\u30c3\u30c9\u3067 \u30b7\u30ea\u30a2\u30e9\u30a4\u30ba\u3057\u305f\u5834\u5408\u3001\u901a\u5e38\u306fGetValue\u3067\u540c\u3058Enum\u578b\u306e\u5909\u6570\u306b\u53d6\u308a\u8fbc\u3080\u306e\u3060\u304c\u3001 SerializationInfo.GetString\u3067\u305d\u306e\u30c7\u30fc\u30bf\u3092\u6587\u5b57\u5217\u578b\u306e\u5909\u6570\u306b \u8aad\u307f\u8fbc\u3081\u3066\u3057\u307e\u3046\u3002 \u3053\u306e\u5834\u5408\u8aad\u307f\u8fbc\u3080\u6587\u5b57\u5217\u306fEnum\u306e\u30e1\u30f3\u30d0\u30fc\u306e\u540d\u524d\u304c\u5165\u308b\u3002 \u672c\u5f53\u306f\u3053\u3053\u3067\u578b\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u6b32\u3057\u3044\u306e\u3060\u304c\u30fb\u30fb\u30fb<\/p>\n<p>Private mHeader As String<\/p>\n<p>Public Enum HeaderType FromHeader ToHeader SubjectHeader CCHeader End Enum<\/p>\n<p>Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, _ ByVal context As System.Runtime.Serialization.StreamingContext) _ Implements System.Runtime.Serialization.ISerializable.GetObjectData &#8216;Enum\u306eHeaderType\u578b\u3092\u6307\u5b9a\u3057\u3066\u30b7\u30ea\u30a2\u30e9\u30a4\u30ba\u5316 info.AddValue(&quot;Header&quot;, mHeader, GetType(HeaderType)) End Sub<\/p>\n<p>Public Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext) Dim enu As HeaderType &#8216;\u901a\u5e38\u306f\u540c\u3058Enum\u578b\u306b\u53d6\u308a\u8fbc\u3080 enu = CType(info.GetValue(&quot;Header&quot;, GetType(HeaderType)), HeaderType)<\/p>\n<p>&#8216;String\u578b\u3068\u3057\u3066\u53d6\u308a\u8fbc\u307f-\u305d\u306e\u307e\u307e\u53d6\u308a\u8fbc\u3081\u308b mHeader = info.GetString(&quot;Header&quot;) End Sub<\/p>\n<ul>\n<li>MS\u30d5\u30ea\u30fc\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb [#g4b74119]<\/li>\n<\/ul>\n<p>-Visual Basic Power Pack &#8211; \u30c0\u30a6\u30f3\u30ed\u30fc\u30c9 &#8211;http:\/\/www.gotdotnet.com\/Community\/Workspaces\/workspace.aspx?id=167542e0-e435-4585-ae4f-c111fe60ed58 -\u7d39\u4ecb\u8a18\u4e8b &#8211;http:\/\/itpro.nikkeibp.co.jp\/free\/NT\/NEWS\/20040622\/1\/<\/p>\n<p>NotificationWindow\u306f\u4f7f\u3044\u305f\u3044\u306a\u3041\u30fb\u30fb\u30fb<\/p>\n<ul>\n<li>System.Type\u578b\u3092\u53d6\u5f97\u3059\u308b [#g37001a6]<\/li>\n<\/ul>\n<p>\u5f15\u6570\u3067Type\u578b\u304c\u5fc5\u8981\u306a\u30af\u30e9\u30b9\u306f\u591a\u3044\u304c\u3001\u3088\u304f\u5fd8\u308c\u308b\u306e\u3067\u30e1\u30e2\u3002 GetType\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u3002C#\u3060\u3068typeOf\u3092\u4f7f\u3046\u3002<\/p>\n<p>GetType(ArgumentException)<\/p>\n<p>\u3068\u3059\u308b\u3068\u3001ArgumentException\u306eSystem.Type\u578b\u304c\u53d6\u5f97\u3067\u304d\u308b<\/p>\n<ul>\n<li>API\u306b\u4f7f\u7528\u3059\u308b\u5b9a\u6570\u306e\u5024\u3092\u8abf\u3079\u308b [#id45f64b]<\/li>\n<\/ul>\n<p>\u306a\u306b\u304b\u3082\u3063\u3068\u4ed6\u306b\u3044\u3044\u65b9\u6cd5\u304c\u3042\u3063\u305f\u3089\u6559\u3048\u3066\u6b32\u3057\u3044\u3002<\/p>\n<p>\u81ea\u5206\u306f\u3060\u3044\u305f\u3044\u3001<\/p>\n<p>c:\\Program Files\\Microsoft Visual Studio .NET 2003\\Vc7\\PlatformSDK\\Include\\WinUser.h<\/p>\n<p>\u3092\u30a8\u30c7\u30a3\u30bf\u3067\u958b\u3044\u3066\u691c\u7d22\u3057\u3066\u3044\u308b\u3002 \u4ed6\u306b\u3082\u30d8\u30c3\u30c0\u30d5\u30a1\u30a4\u30eb\u306f\u3044\u3063\u3071\u3044\u3042\u308b\u306e\u3067\u3001\u3053\u308c\u4ee5\u5916\u306e\u6240\u306b\u3082\u3044\u3063\u3071\u3044\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u308b\u306e\u304b\u3082\u3002 C++\u306f\u4f7f\u3063\u305f\u3053\u3068\u306a\u3044\u306e\u3067\u3088\u304f\u5206\u304b\u3089\u306a\u3044\u3067\u3059\u3002<\/p>\n<ul>\n<li>alt + tab\u306e\u30bf\u30b9\u30af\u5207\u308a\u66ff\u3048\u306b\u8868\u793a\u3055\u305b\u306a\u3044\u3088\u3046\u306b\u3059\u308b [#w63c475a]<\/li>\n<\/ul>\n<p>\u30d5\u30a9\u30fc\u30e0\u306eFormBorderStyle\u3092FixedToolWindow\u306b\u3059\u308b\u3002\u305f\u3060\u305d\u308c\u3060\u3051(\u7b11)<\/p>\n<ul>\n<li>\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u305b\u305a\u958b\u304f [#uf0ca242]<\/li>\n<\/ul>\n<p>\u4e00\u5ea6\u524d\u3082\u3063\u3066(\u4f8b\u3048\u3070\u30bd\u30d5\u30c8\u306e\u8d77\u52d5\u6642\u3068\u304b\u306b)\u30d5\u30a9\u30fc\u30e0\u306eShow\u3092\u4e00\u56de\u5b9f\u884c\u3057\u3066 Hide\u306b\u3057\u305f\u30d5\u30a9\u30fc\u30e0\u306b\u5bfe\u3057\u3066Windows API\u306eSetWindowsPos\u3067 SWP_SHOWWINDOW\u3092\u4f7f\u3046\u3068\u4e00\u5fdc\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u305b\u305a\u306b\u30d5\u30a9\u30fc\u30e0\u3092\u958b\u304f\u3053\u3068\u304c\u51fa\u6765\u307e\u3059\u3002<\/p>\n<p>\u203bVisual Basic Power Pack:http:\/\/www.gotdotnet.com\/Community\/Workspaces\/workspace.aspx?id=167542e0-e435-4585-ae4f-c111fe60ed58\u306e NotificationWindow\u3067\u3082\u540c\u3058\u3088\u3046\u306a\u3053\u3068\u3092\u3057\u3066\u3044\u308b\u306e\u3067\u305d\u3061\u3089\u3082\u53c2\u8003\u306b\u3057\u3066\u307f\u308b\u3068\u3044\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u306a\u3093\u3067\u3053\u3046\u3057\u305f\u304b\u3068\u3044\u3046\u3068\u3001 -Show\u30e1\u30bd\u30c3\u30c9\u3067\u306f\u5fc5\u305a\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u72b6\u614b\u3067\u30d5\u30a9\u30fc\u30e0\u304c\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3046(=Show\u30e1\u30bd\u30c3\u30c9\u306f\u4f7f\u3048\u306a\u3044) -\u4e00\u56de\u3082\u8868\u793a\u3055\u305b\u3066\u3044\u306a\u3044\u30d5\u30a9\u30fc\u30e0\u306b\u5bfe\u3057\u3066\u3001SetWindowsPos\u306eSWP_SHOWWINDOW\u3092\u4f7f\u3063\u3066\u3082\u30d5\u30a9\u30fc\u30e0\u4ee5\u5916\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u304c\u8868\u793a\u3055\u308c\u306a\u3044(\u306e\u3063\u307a\u3089\u307c\u3046\u72b6\u614b)<\/p>\n<p>C++\u3068\u304b\u3084\u3063\u3066\u308b\u4eba\u306f\u30a6\u30a3\u30f3\u30c9\u30a6\u95a2\u9023\u306e\u52d5\u304d\u306f\u3088\u304f\u5206\u304b\u3063\u3066\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001 VB\u3057\u304b\u3084\u3063\u3066\u306a\u3044\u3068\u305d\u306e\u3042\u305f\u308a\u306fVB\u304c\u52dd\u624b\u306b\u3084\u308b\u306e\u3067\u3088\u304f\u5206\u304b\u308a\u307e\u305b\u3093\u3002 \u305f\u3060\u3001\u3053\u3093\u306a\u611f\u3058\u3067\u7d30\u304b\u3044\u3053\u3068\u3092\u3084\u308d\u3046\u3068\u3059\u308b\u3068VB.NET\u3067\u3082\u307e\u3060\u7d30\u304b\u3044\u30a6\u30a3\u30f3\u30c9\u30a6\u64cd\u4f5c\u306f\u3067\u304d\u306a\u3044\u306e\u3067 API\u306b\u983c\u3089\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u306d\u3002<\/p>\n<p>\u4e00\u5fdcAPI\u306e\u5b9a\u7fa9\u3067\u3059\u3002 http:\/\/www.bcap.co.jp\/hanafusa\/VBHLP\/pri_form.htm \u3092\u53c2\u8003\u306b\u3055\u305b\u3066\u9802\u304d\u307e\u3057\u305f(\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3059)<\/p>\n<p>Private Declare Auto Function SetWindowPos Lib &quot;user32&quot; _ (ByVal hwnd As System.IntPtr, ByVal hWndInsertAfter As Integer, _ ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, _ ByVal cy As Integer, ByVal wFlags As Integer) As Integer &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092Z\u30aa\u30fc\u30c0\u30fc\u306e\u4e00\u756a\u4e0a\u306b\u914d\u7f6e\u3059\u308b Private Const HWND_TOP As Integer = 0 &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092\u30a6\u30a4\u30f3\u30c9\u30a6\u30ea\u30b9\u30c8\u306e\u4e00\u756a\u4e0b\u306b\u914d\u7f6e\u3059\u308b Private Const HWND_BOTTOM As Integer = 1 &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092\u30a6\u30a4\u30f3\u30c9\u30a6\u30ea\u30b9\u30c8\u306e\u4e00\u756a\u4e0a\u306b\u914d\u7f6e\u3059\u308b Private Const HWND_TOPMOST As Integer = (-1) &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092\u30a6\u30a4\u30f3\u30c9\u30a6\u30ea\u30b9\u30c8\u306e\u4e00\u756a\u4e0a<\/p>\n<p>&#8216;Private Const HWND_NOTOPMOST = (-2) &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u306e\u73fe\u5728\u306e\u30b5\u30a4\u30ba\u3092\u4fdd\u6301\u3059\u308b Private Const SWP_NOSIZE As Integer = &amp;H1 &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u306e\u73fe\u5728\u4f4d\u7f6e\u3092\u4fdd\u6301\u3059\u308b Private Const SWP_NOMOVE As Integer = &amp;H2 &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044 Private Const SWP_NOACTIVATE As Integer = &amp;H10 &#8216;\u30a6\u30a4\u30f3\u30c9\u30a6\u3092\u8868\u793a\u3059\u308b Private Const SWP_SHOWWINDOW As Integer = &amp;H40<\/p>\n<p>\u3053\u308c\u3092<\/p>\n<p>SetWindowPos(Me.Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)<\/p>\n<p>\u307f\u305f\u3044\u306a\u611f\u3058\u3067\u4f7f\u3044\u307e\u3059\u3002 \u4e00\u5ea6\u5148\u306bShow\u3092\u5b9f\u884c\u3057\u3066\u304b\u3089\u3068\u3044\u3046\u306e\u304c\u3001\u30c0\u30b5\u3044\u611f\u3058\u304c\u3059\u308b\u306e\u3067\u3082\u3063\u3068\u30b9\u30de\u30fc\u30c8\u306a\u65b9\u6cd5\u304c\u3042\u3063\u305f\u3089\u6559\u3048\u6b32\u3057\u3044\u306a\u30fc(\u7b11) \u4e00\u5fdc\u3001Show\u3059\u308b\u524d\u306bOpacity\u30d7\u30ed\u30d1\u30c6\u30a3\u30fc\u306e\u5024\u3092\u4e00\u6642\u7684\u306b0\u306b\u3057\u3066\u3001Hide\u3057\u3066\u5143\u306b\u623b\u3059\u3088\u3046\u306b\u3059\u308b\u3068\u3001\u898b\u305f\u76ee\u306f\u30b9\u30de\u30fc\u30c8\u306b\u898b\u3048\u307e\u3059(\u7b11)<\/p>\n<p>\u6ce8\u610f\u70b9\u306f\u3001SetWindowPos\u3092\u4f7f\u3063\u3066\u30d5\u30a9\u30fc\u30e0\u3092\u8868\u793a\u3057\u305f\u308a\u96a0\u3057\u305f\u308a\u3057\u3066\u3082\u3001 \u305d\u306e\u30d5\u30a9\u30fc\u30e0\u306eVisible\u30d7\u30ed\u30d1\u30c6\u30a3\u30fc\u304c\u306a\u3093\u3089\u5909\u5316\u3057\u306a\u3044\u3068\u3044\u3046\u6240\u3067\u3059\u3002 \u3053\u308c\u306f\u6c17\u3092\u3064\u3051\u3066\u304a\u304b\u306a\u3044\u3068\u3001\u305f\u3068\u3048\u3070\u30d5\u30a9\u30fc\u30e0\u3067\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u30dd\u30c3\u30d7\u30a2\u30c3\u30d7\u30e1\u30cb\u30e5\u30fc\u3092\u51fa\u3059\u3088\u3046\u306b\u3057\u3066\u3044\u305f\u5834\u5408\u3001 VB\u304b\u3089\u898b\u308b\u3068\u8868\u793a\u3057\u3066\u3044\u306a\u3044\u30d5\u30a9\u30fc\u30e0\u3067\u53f3\u30af\u30ea\u30c3\u30af\u3057\u305f\u3068\u898b\u3089\u308c\u3066\u3057\u307e\u3044\u3001\u5b9f\u884c\u6642\u4f8b\u5916\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002 \u3069\u3053\u304b\u3067\u8868\u793a\u3068Visible\u30d7\u30ed\u30d1\u30c6\u30a3\u30fc\u3092\u5408\u308f\u305b\u3066\u304a\u3044\u305f\u65b9\u304c\u7121\u96e3\u3067\u3059 (\u4e0a\u306e\u4f8b\u3060\u3068\u30d5\u30a9\u30fc\u30e0\u306eMouseMove\u30a4\u30d9\u30f3\u30c8\u3067Visible=True\u306b\u3059\u308b\u3068\u304b)<\/p><div id=\"advads-3305799262\" class=\"advads-content-placement-after-3rd-paragraph advads-entity-placement\" style=\"margin-left: auto;margin-right: auto;text-align: center;\"><div class=\"advads-adlabel\">\u5e83\u544a<\/div><script async src=\"\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js?client=ca-pub-7585646298782746\" crossorigin=\"anonymous\"><\/script><ins class=\"adsbygoogle\" style=\"display:inline-block;width:300px;height:250px;\" \ndata-ad-client=\"ca-pub-7585646298782746\" \ndata-ad-slot=\"6112122906\"><\/ins> \n<script> \n(adsbygoogle = window.adsbygoogle || []).push({}); \n<\/script>\n<\/div>\n","protected":false},"excerpt":{"rendered":"<p>FrontPage XML Web\u30b5\u30fc\u30d3\u30b9\u3092\u4f5c\u3063\u3066\u307f\u308b [#sb2f8267] \u8ad6\u3088\u308a\u30bd\u30fc\u30b9\u3068\u3044\u3046\u3053\u3068\u3067\u3001MS\u306e10\u884c\u30b7\u30ea\u30fc\u30ba:http:\/\/www.microsoft.com\/japan\/msdn\/thisweek\/w [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":11574,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"sidebar-page.php","meta":{"_crdt_document":"","footnotes":""},"class_list":["post-11589","page","type-page","status-publish","hentry"],"aioseo_notices":[],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/pages\/11589","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/comments?post=11589"}],"version-history":[{"count":0,"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/pages\/11589\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/pages\/11574"}],"wp:attachment":[{"href":"https:\/\/a-tak.com\/blog\/wp-json\/wp\/v2\/media?parent=11589"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}