| VERSION 1.0 CLASS | |
| BEGIN | |
| MultiUse = -1 'True | |
| END | |
| Attribute VB_Name = "OrderedDictionary" | |
| Attribute VB_GlobalNameSpace = False | |
| Attribute VB_Creatable = False | |
| Attribute VB_PredeclaredId = False | |
| Attribute VB_Exposed = False | |
| Option Explicit |
| ' ADODB のインメモリ レコードセットを Access 非連結フォームのレコードソースに | |
| ' セットするサンプル コード。 | |
| ' 下記をコピペでテストする場合は、運送会社テーブルから表形式フォームをオート | |
| ' フォームで作成して、フォームのレコードソース プロパティを削除すると多少楽。 | |
| Option Compare Database | |
| Option Explicit | |
| Private Sub Form_Load() | |
| ' インメモリ レコードセットをフォームのレコードソースにセットします。 |
| [user] | |
| name = Pavan Kumar Sunkara | |
| email = pavan.sss1991@gmail.com | |
| username = pksunkara | |
| [init] | |
| defaultBranch = master | |
| [core] | |
| editor = nvim | |
| whitespace = fix,-indent-with-non-tab,trailing-space,cr-at-eol | |
| pager = delta |
| Option Explicit | |
| Public Sub Initialize(args() As Variant) | |
| ' | |
| End Sub |
Tomas Petricek (@tomaspetricek)
2月に、私は毎年恒例のMVPサミット ── Microsoft が MVP のために主催するイベント ── に出席しました。私はボストンとニューヨークを訪問する機会を利用して、二つの F# に関する講演と Channel9 lecture about type providers の収録を行いました。他のすべての活動（しばしばパブで他の F#er を議論に巻き込んだり、朝まで長い睡眠）にもかかわらず、私はいくつかの講演に参加し果せました。
| au FileType qf call AdjustWindowHeight(3, 10) | |
| function! AdjustWindowHeight(minheight, maxheight) | |
| let l = 1 | |
| let n_lines = 0 | |
| let w_width = winwidth(0) | |
| while l <= line('$') | |
| " number to float for division | |
| let l_len = strlen(getline(l)) + 0.0 | |
| let line_width = l_len/w_width | |
| let n_lines += float2nr(ceil(line_width)) |
| '目的の要素を選択 | |
| Sub Main() | |
| Application.OnTime Now + TimeSerial(0, 0, 2), "GetSub" | |
| End Sub |
| " Don't try to be vi compatible | |
| set nocompatible | |
| " Helps force plugins to load correctly when it is turned back on below | |
| filetype off | |
| " TODO: Load plugins here (pathogen or vundle) | |
| " Turn on syntax highlighting | |
| syntax on |
| Option Explicit | |
| Private Type GUID | |
| Data1 As Long | |
| Data2 As Integer | |
| Data3 As Integer | |
| Data4(0 To 7) As Byte | |
| End Type |
