<compile Include="clsUpdate.vb" />
<compile Include="frmMain.vb">
<subtype>Form</SubType>
</Compile>
Private Sub FormName_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'デザイン時は処理しない
If AppDomain.CurrentDomain.FriendlyName = "DefaultDomain" Then
Exit Sub
End If
End Sub
Public Sub RowStateSetUnChanged(ByVal dt As DataTable)
If IsNothing(dt) Then
Return
End If
For RowIdx As Integer = 0 To dt.Rows.Count - 1
Dim dr As DataRow = dt.Rows(RowIdx)
If dr.RowState <> DataRowState.Modified Then
Continue For
End If
Dim IsUnChanged As Boolean
IsUnChanged = True
For ColIdx As Integer = 0 To dt.Columns.Count - 1
If Not dr.Item(ColIdx, DataRowVersion.Current).Equals(dr.Item(ColIdx, DataRowVersion.Original)) Then
IsUnChanged = False
Exit For
End If
Next ColIdx
' 変更されていなかった場合、UnChangedに設定する
If IsUnChanged Then
dr.AcceptChanges()
End If
Next RowIdx
End Sub
#Region "バイト数文字制限"
'''
''' テキスト変更時のイベントハンドラを追加
'''
''' ''' ''' EditingControlが表示された時の処理
Private Sub CommonDataGridView_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles Me.EditingControlShowing
Select Case True
Case TypeOf e.Control Is DataGridViewTextBoxEditingControl, TypeOf e.Control Is DataGridViewComboBoxEditingControl
'TextChangedイベントハンドラを追加
AddHandler EditingControl.TextChanged, AddressOf EditingControl_TextChanged
End Select
End Sub
Private Sub EditingControl_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case True
' TextBox
Case TypeOf Me.FindForm.ActiveControl Is DataGridViewTextBoxEditingControl
Dim EditingControl As DataGridViewTextBoxEditingControl
EditingControl = DirectCast(Me.FindForm.ActiveControl, DataGridViewTextBoxEditingControl)
Dim CurrentCell As DataGridViewTextBoxCell
CurrentCell = DirectCast(Me.CurrentCell, DataGridViewTextBoxCell)
Dim ValueByteCount As Integer
ValueByteCount = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(EditingControl.Text)
If ValueByteCount > CurrentCell.MaxInputLength Then
EditingControl.Text = LeftB(EditingControl.Text, CurrentCell.MaxInputLength)
EditingControl.SelectionStart = EditingControl.TextLength
End If
' ComboBox
Case TypeOf Me.FindForm.ActiveControl Is DataGridViewComboBoxEditingControl
' 必要の都度、型ごとに増やしていく
End Select
End Sub
' 左からバイト数で文字列を取得 これは他の共通クラスで持たせてください。
Private Function LeftB(ByVal value As String, ByVal length As Integer) As String
Dim enc As System.Text.Encoding
enc = System.Text.Encoding.GetEncoding("Shift_JIS")
Dim bytes As Byte()
bytes = enc.GetBytes(value.PadRight(length))
Return enc.GetString(bytes, 0, length)
End Function
#End Region
package jp.dd0125.common;
import jp.co.nobot.libYieldMaker.libYieldMaker;
import android.app.Activity;
import android.util.Log;
import android.view.ViewGroup.LayoutParams;
import android.widget.LinearLayout;
import android.widget.ProgressBar;
import android.widget.RelativeLayout;
import com.admob.android.ads.AdListener;
import com.admob.android.ads.AdView;
public class CommonAdMob_AdMaker {
private static final String TAG = "CommonAdvertisement";
ProgressBar pb;
AdView adView;
libYieldMaker adMaker;
Activity act;
public CommonAdMob_AdMaker(Activity act){
this.act = act;
pb = new ProgressBar(act);
pb.setVisibility(ProgressBar.VISIBLE);
//pb.setGravity(android.view.Gravity.RIGHT);
pb.setLayoutParams(new LinearLayout.LayoutParams(LayoutParams.WRAP_CONTENT, LayoutParams.WRAP_CONTENT));
}
public void createAdMob(int align){
adView = new AdView(act);
adView.setVisibility(android.view.View.VISIBLE);
adView.requestFreshAd();
adView.setGravity(align);
adView.setLayoutParams(new LinearLayout.LayoutParams(LayoutParams.FILL_PARENT, LayoutParams.WRAP_CONTENT));
adView.setAdListener(new AdListener() {
public void onReceiveRefreshedAd(AdView adView) {
Log.d(TAG, "AdListener.onReceiveRefreshedAd called!");
}
public void onReceiveAd(AdView adView) {
Log.d(TAG, "AdListener.onReceiveAd called!");
// 広告が表示できたのでProgressBarを消す
pb.setVisibility(ProgressBar.GONE);
}
public void onFailedToReceiveRefreshedAd(AdView adView) {
Log.d(TAG, "AdListener.onFailedToReceiveRefreshedAd called!");
}
public void onFailedToReceiveAd(AdView adView) {
Log.d(TAG, "AdListener.onFailedToReceiveAd called!");
// プログレスバーを消す
pb.setVisibility(ProgressBar.GONE);
// AdMaker の広告を設定している場合、AdMakerの広告を表示するのでAdViewの更新を行わせない
if(adMaker != null){
adView.setRequestInterval(0);
adView.setVisibility(AdView.GONE);
// AdMakerの広告を表示させる
adMaker.setVisibility(libYieldMaker.VISIBLE);
adMaker.startView();
}
}
});
}
public void createAdMaker(String url){
adMaker = new libYieldMaker(act);
adMaker.setLayoutParams(new LinearLayout.LayoutParams(LayoutParams.FILL_PARENT,LayoutParams.WRAP_CONTENT));
adMaker.setActivity(act);
adMaker.setUrl(url);
}
public RelativeLayout getAdMob_AdMaker(){
RelativeLayout layout = new RelativeLayout(act);
layout.setLayoutParams(new LinearLayout.LayoutParams(LayoutParams.FILL_PARENT,LayoutParams.WRAP_CONTENT));
layout.setGravity(android.view.Gravity.CENTER);
layout.addView(pb);
if(adView != null){
layout.addView(adView);
}
if(adMaker != null){
layout.addView(adMaker);
if(adView == null) {
pb.setVisibility(ProgressBar.GONE);
adMaker.setVisibility(libYieldMaker.VISIBLE);
adMaker.startView();
}
}
return layout;
}
}
// 広告
//AdManager.setTestDevices( new String[] {
// AdManager.TEST_EMULATOR,
// //"XXXXXXXXXXXXXXXXXXXX",
// });
LinearLayout l_ad = (LinearLayout)findViewById(レイアウトID);
CommonAdMob_AdMaker Ad;
Ad = new CommonAdMob_AdMaker(this);
Ad.createAdMob(RelativeLayout.ALIGN_TOP); // AdMobを生成
Ad.createAdMaker("http://stg-images.ad-maker.info/sample-test.html"); // AdMakerを生成
l_ad.addView(Ad.getAdMob_AdMaker()); // 広告を持ったレイアウトが返ってきますので addViewします
・ファイル実行
Public Function A()
Try
If Not AA() Then
Return False
End If
' なんらかの処理
Catch ex As Exception
MessageBox.Show("A にてエラーが発生しました。", "エラー発生", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End Try
Return True
End Function
Public Function AA() As Boolean
Try
If Not AAA() Then
Return False
End If
' なんらかの処理
Catch ex As Exception
MessageBox.Show("AA にてエラーが発生しました。", "エラー発生", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End Try
Return True
End Function
Public Function AAA() As Boolean
Try
' なんらかの処理
Catch ex As Exception
MessageBox.Show("AAA にてエラーが発生しました。", "エラー発生", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End Try
Return True
End Functionつまりこんな感じの処理です。A関数処理 AA関数処理 AAA関数処理 AA関数処理 A関数処理AAA関数でエラーが発生した場合、AAの後の処理は行ってはいけないわけです。 行わないように
If Not AAA() Then
Return False
End Ifと記述し、エラーの場合は即座に親関数に戻しています。Public Class ExitException
Inherits Exception
Public Sub New(Optional ByVal ErrMsg As String = "エラーが発生しました。")
MyBase.New(ErrMsg)
End Sub
Public Sub New(ByVal ErrMsg As String, ByVal ex As Exception)
MyBase.New(ErrMsg, ex)
End Sub
End Class
Public Function A()
Try
Call AA()
' なんらかの処理
Catch ex As Exception
ErrMsg(ex, "A にてエラーが発生しました。")
Throw New ExitException
End Try
Return True
End Function
Public Function AA() As Boolean
Try
Call AAA()
' なんらかの処理
Catch ex As Exception
ErrMsg(ex, "AA にてエラーが発生しました。")
Throw New ExitException
End Try
Return True
End Function
Public Function AAA() As Boolean
Try
' なんらかの処理
Catch ex As Exception
ErrMsg(ex, "AAA にてエラーが発生しました。")
Throw New ExitException
End Try
Return True
End Function
Public Sub ErrMsg(ByVal ex As Exception, Optional ByVal Message As String = "")
If TypeOf ex Is ExitException Then
Exit Sub
Else
If Message = "" Then
' メッセージを指定していない場合
Message = "不正なエラーが発生しました。"
' 実行関数名取得してメッセージに含める。これに関してはまた改めて・・
End If
MessageBox.Show(Message, "エラー発生", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Subです。 まず、 if Not ～ の記述がなくなっています。