きょうちゃんの独り言

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

VB.NET ドライブの空き容量を調べる方法です。
GB単位で表示します。



Public Function DiskInfoAvailableFreeSpace(Optional DriveName As String = "C")
'C:ドライブの情報を取得する
Dim drive As New System.IO.DriveInfo(DriveName)
'ドライブの準備ができているか調べる
If drive.IsReady Then
DiskInfoAvailableFreeSpace = drive.AvailableFreeSpace / 1024 / 1024 / 1024
Else

DiskInfoAvailableFreeSpace = 0
End If



End Function

CSVファイルを作成してダウンロードする方法です。
まず Timestamp(),data() に配列データがあることが前提です。

CSVファイルは
trenditemname,TImestamp(),data()
でMaxReadItem行分作成されます。


Protected Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
'CSVデータを生成
Dim str As StringBuilder = New StringBuilder

For x = 0 To MaxReadItem - 1
str.Append(trenditemname)
str.Append(",")
str.Append(Timestamps(x))
str.Append(",")
str.Append(data(x))
str.Append(vbCrLf)
Next


'Contentをクリア
Response.ClearContent()

'Contentを設定
Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis") 'Shift-JISで出力したい場合
'Response.ContentEncoding = System.Text.Encoding.UTF8 'UTF-8で出力したい場合
Response.ContentType = "test/csv"

'表示ファイル名を指定
Dim viewFileName As String = HttpUtility.UrlEncode(trenditemname & ".csv")
Response.AddHeader("Content-Disposition", "attachment;filename=" + viewFileName)

'CSVデータを書き込み
Response.Write(str.ToString)

'ダウンロード実行
Response.Flush()
Response.End()
End Sub



























干すよりキレイ。ふとんクリーナーはレイコップ

ASP.NET GridView にコーデイングでデータを記述する方法です。


Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'データテーブルを作成してGridViweに設定

Dim dt As New DataTable
dt.Columns.Add("No", Type.GetType("System.String"))
dt.Columns.Add("項目", Type.GetType("System.String"))
dt.Columns.Add("説明", Type.GetType("System.String"))

'//DataTableにデータ追加
dt.Rows.Add("01", "0101", "EU")
dt.Rows.Add("02", "0202", "EU")



' //GridViewにバインド
GridView1.DataSource = dt
GridView1.DataBind()



End Sub

WEBサーバのルートパスを取得する方法です。

Server.MapPath("/")

サブデイレクトリを参照する方法は以下です。(\Log)

Server.MapPath("/Log")

VB.NET ASP.NET における時間の書式

例)yyyyMMddHHmmss

Dim NowDataGet As String = Format(Now,"yyyyMMddHHmmss")

結果として
NowDataGet は　20171217152006
となります。



yyyy 4けたの年 2017
yy 0埋め2けたの年 17
MM 0埋め2けたの月 12
dd 0埋め2けたの日 17
HH 0埋め2けたの時間（24時間表記） 15
hh 0埋め2けたの時間（12時間表記） 03
mm 0埋め2けたの分 20
ss 0埋め2けたの秒 06

ASP.NET セッション情報をフォームごとに別管理する方法。
Session("XXXXX")に対して起動時の時刻を取り込みそれをセッションの名前にする。

例えば
フォーム起動時の現在の時刻をフォームの特定化に利用します。
URLにパラメータとして設定する
www.aaaa/xxx.aspx ?GETTIME=20171217142021

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　Dim GetTimeStr As String = Me.Request.QueryString("GETTIME")

Session("XXXXX" & GetTimeStr)として　管理する



End Sub

ASP.NET クライアントからは一画面だけ動作する場合
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

TextBox1.Text = Session("IP")

If IsPostBack = True Then
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Else

If IsNothing(Session("IP")) Then
Label1.Visible = False
Close_Button.Visible = False
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Else

Label1.Text = "複数起動できません"
Label1.Visible = True
Close_Button.Visible = True
Close_Button.Attributes("OnClick") = "window.close()"
Exit Sub


End If

End If

End Sub続きを読む...

最初の起動時つまりPostBack じゃないとき
If IsPostBack = False Then

で記載する。

皆さんようこそ

このサイトではできるだけ簡単に
コピペするだけで使えそうな
項目をアップしようと心がけています！

ブラウザーを開いたクライアント側のIPアドレス情報を取得する方法。

Request.ServerVariables("REMOTE_ADDR")

具体的にはIPアドレスが得られます。