代码搜索结果
找到约 85,229 项符合
Sender 的代码
unit_main.pas
unit Unit_Main;
interface
uses
Windows,Classes,SvcMgr,activex, ExtCtrls;
type
TService_Desktop = class(TService)
Timer_Check: TTimer;
procedure ServiceStart(Sender: TService;
简单登录程序代码.txt
procedure TForm2.BitBtn1Click(Sender: TObject);
var
retVal:integer;
begin
retVal:=mrNo;
if (Edit1.Text='a') and (Edit2.Text='b') then
begin
retVal:=mrYes;
end;
modalresult:=retVal;
end;
p
global.asax
void Application_Start(Object sender, EventArgs e) {
// Code that runs on application startup
}
void Appli
aboutbox1.vb
Public NotInheritable Class AboutBox1
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub OKButton_Click(
global.asax
void Application_Start(object sender, EventArgs e)
{
// 在应用程序启动时运行的代码
global.asax
void Application_Start(object sender, EventArgs e)
{
// 在应用程序启动时运行的代码
}
void Application_End(object
frmadduser.vb
Public Class FrmAddUser
Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
If Trim(txtno.Text) = "" Then
MsgBox("用户编号不能
formaddleibie.vb
Public Class Formaddleibie
Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
If Trim(txtfenleino.Text) = "" Then
MsgBo
form5.vb
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(txtshangpinno.Text) = "" Then
MsgBo
formadd.vb
Public Class Formadd
Private Sub Formadd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
init()
End Sub
Private Sub Button1_Click(ByVa